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ABSTRACT 

Retention  policy  for  U.S.  Navy  wholesale  inventories  in  long 
supply  has  been  in  a  state  of  flux  and  under  Congressional  scrutiny 
since  1985.  This  thesis  analyzes  and  compares  the  U.S.  Navy's 
current  economic  retention  process  to  four  mathematical  Economic 
Retention  Decision  Models  designed  to  assist  in  making  retention 
determinations  with  respect  to  excess  inventories.  The  motivation 
for  this  research  was  based  on  several  factors,  the  two  primary 
factors  were;  the  Navy  does  not  currently  use  a  classical  economic 
retention  decision  model  when  making  retention/disposal  decisions 
for  "essential"  material,  and  U.S.  Navy  inventories  in  long  supply 
were  estimated  to  be  as  high  as  3 . 4  billion  dollars  in  March  1993. 
A  Pascal  based  simulation  was  developed  to  compare  the  Navy's 
retention  process  and  the  mathematical  models.  The  comparison  was 
based  on  performance  with  respect  to  the  Measures  Of  Effectiveness 
(MOE)  of  Total  Cost  and  Average  Customer  Wait  Time.  The  simulation 
was  designed  to  emulate  the  portions  of  the  Navy's  consumable  item 
inventory  management  system  (UICP)  applicable  to  the  demand  process 
for  a  Navy  managed  consumable  item.  The  goal  of  this  research  was 
to  determine  how  effective  the  Navy's  retention  process  was  as 
compared  with  economic  retention  decision  models  for  both  a  steady 
state  and  a  declining  demand  environment.  In  general,  results 
showed  that  at  least  one  mathematical  model  performed  better  than 
the  Navy's  process  for  all  demand  scenarios  that  were  simulated  and 
that  the  ideal  model  varies  between  demand  scenarios  and  changes  in 
decision  maker's  emphasis  on  the  MOEs  . 
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THESIS  DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of 
interest.  While  every  effort  has  been  made,  within  the  time 
available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 
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EXECUTIVE  SUMMARY 

OVERVIEW:  Retention  and  disposal  policy  for  U.  S.  Navy 
wholesale  inventories  in  long  supply  has  been  in  a  state  of 
flux  and  under  congressional  scrutiny  since  1985.  Comments 
from  the  Chief  of  the  Supply  Corps  on  19  July  1993  indicated 
that  one  of  the  preeminent  issues  regarding  the  future  of  the 
Supply  Corps  was  inventory  reduction.  He  stated  that 
inventory  reduction  is  "a  congressionally  mandated  process  and 
a  fiscal  necessity  ....  we  must  continue  to  aggressively 
pursue  inventory  reductions  in  an  intelligent  manner",  and 
that  it  "demands  our  immediate  and  continuous  attention."1 

An  important  aspect  of  inventory  reduction  is  the 
retention/disposal  process  for  excess  material.  This  thesis 
evaluated  the  effectiveness  of  the  Navy's  UICP  economic 
retention  model.  The  evaluation  was  performed  by  comparing 
several  mathematical  economic  retention  models  with  the  Navy's 
existing  retention  model. 

There  were  three  primary  factors  that  motivated  this 

thesis.   First,  the  Navy  Inventory  Control  Points  (ICP)  are 

not  confident  that  eight  years  worth  of  forecasted  annual 

demand  is  an  appropriate  inventory  retention  level.   Second, 

with  continued  budget  reductions  and  reductions  in  the  size  of 
v 

*Naval  Supply  Systems  Command,  Subject:  Naval  Supply 
Corps  FLASH  from  the  Chief,  No.  7-93,  19  July  1993. 
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the  Fleet,  excess  inventories  will  continue  to  be  a  financial 
and  administrative  burden.  For  example,  as  of  March  1993  the 
Navy  held  $1.9  billion  in  Economic  Retention  Stock-  and  $1.5 
billion  in  potential  excess  inventory  for  1H,  3H  and  7  COG- 
material.  Finally,  DOD  Regulation  4140. 1-R  recommends  that 
better  analysis  supporting  retention  decisions  be  done  through 
the  use  of  economic  retention  decision  models.  The  Navy  does 
not  currently  use  a  classical  economic  retention  decision 
model  when  making  retention  and  disposal  decisions  for 
"essential"  material. 

ANALYSIS :  An  analysis  of  the  models  was  performed  for  a 
variety  of  demand  scenarios  in  both  steady  state  and  declining 
demand  situations.  The  analysis  was  designed  with  two 
objectives  in  mind.  The  first  objective  was  to  determine 
which  model (s)  were  most  effective  in  a  demand  environment 
similar  to  the  Navy's  stochastic  demand  environment.  The 
second  objective  was  to  evaluate  how  the  Navy's  retention 
process  performed  with  respect  to  the  mathematical  models. 

A  discrete  event  Monte  Carlo  simulation  of  the  Navy's  UICP 
demand  process  and  the  mathematical  retention  models  was 
developed  to  evaluate  the  performance  of  the  models.   The 


Economic  Retention  Stock  (ERS)  is  that  material  which  is 
more  economical  to  hold  for  future  requirements  as  opposed  to 
disposing  and  reprocuring  in  the  future. 

2Cognizant  symbols  (COG)  are  two  character  alpha-numeric 

codes  which  identify  and  designate   cognizant   inventory 

managers  who  exercise  supply  management  over  a  specific 
category  of  material. 
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simulation  was  developed  by  the  author  and  LT  Glenn 
Robillard1,  and  was  designed  to  emulate  the  portions  of  the 
Navy's  Uniform  Inventory  Control  Program  (UICP)  applicable  to 
this  research.  The  simulation  represents  the  demand  process 
of  a  hypothetical  Navy  managed  consumable  item.  The 
evaluation  of  the  models '  performance  was  based  on  the 
measures  of  effectiveness  (MOE)  of  total  cost  (TC)  over  a 
specified  period  of  simulation  time  and  average  customer  wait 
time  (ACWT)  per  requisition  for  all  requisitions  which  occur 
over  a  specified  period  of  simulation  time. 

The  mathematical  models  chosen  for  this  research  were 
based  on  their  applicability  to  the  Navy's  excess  inventory 
problem  and  the  simulation.  The  mathematical  models  chosen 
were  Simpson's  "Economic  Retention  Period  Formula",  Tersine 
and  Toelle's  simple  "Net  Benefit"  model  and  present  value  "Net 
Benefit"  model,  and  the  simple  "Net  Benefit"  model  modified  to 
account  for  the  potential  for  stockouts  associated  with  Navy 
managed  items. 

The  analysis  and  performance  comparisons  of  the  models 
were  based  on  MOEs  calculated  from  output  data  from  the 
simulation  for  six  basic  demand  scenarios.    The  demand 
scenarios  were  based  on  varying  combinations  of  unit  price, 
mean  quarterly  demand  and  variance  of  mean  quarterly  demand. 


JLT  Robillard  is  a  U.S.  Navy  Supply  Officer  and 
graduate  student  at  the  Naval  Postgraduate  School  studying 
Operations  Research. 
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For  each  demand  scenario  four  retention  scenarios  were 
analyzed  using  the  simulation.  The  four  retention  scenario 
analyses  follow.  A  Total  Cost  Analysis  was  performed  to 
determine  what  the  true  optimal  amount  of  inventory  to  hold 
was  for  a  given  quantity  of  initial  excess  inventory.  A 
Constant  Demand  Analysis  was  performed  to  compare  the  various 
models  to  the  theoretically  optimal  retention  quantity  that 
was  determined  during  the  Total  Cost  Analysis.  A  Declining 
Demand  Analysis  was  performed  to  compare  the  models  under 
three  scenarios  of  declining  mean  demand  patterns.  Finally, 
Sensitivity  Analysis  was  performed  for  four  combinations  of 
demand  scenarios  and  declining  mean  demand  patterns.  The 
parameters  evaluated  in  the  Sensitivity  Analysis  were 
inventory  holding  cost  rate,  obsolescence  rate,  administrative 
order  cost  rate  and  salvage  rate. 

CONCLUSION:  The  findings  of  this  research  showed  that  none 
of  the  models  analyzed  consistently  yielded  the  lowest  total 
cost  and  ACWT  for  all  of  the  demand  and  retention  scenarios 
examined.  As  a  group,  the  "net  benefit"  models  performed  the 
best  and  generally  performed  better  than  the  UICP  retention 
model.  Additionally,  for  most  demand  scenarios  in  both  the 
Constant  and  Declining  Demand  Analysis,  the  decision  on  which 
model  to  chose  could  typically  be  determined  by  the  MOE  of 
total  cost  alone.  This  was  due  to  the  fact  that  the 
difference  between  the  various  models'  ACWTs  for  each  demand 
scenario,  was  generally  insignificant.   In  summary,  the  above 
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findings  indicate  that  for  Navy  managed  items  the  "optimal" 
retention  quantity  differs  significantly  from  item  to  item 
based  on  variations  in  mean  quarterly  demand  and  unit 
price. 
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I .   BACKGROUND 
A.    INTRODUCTION 

Retention  and  disposal  policy  for  U.  S.  Navy  wholesale 
inventories  in  long  supply  has  been  in  a  state  of  flux  and 
under  congressional  scrutiny  since  1985.  Comments  from  the 
Chief  of  the  Supply  Corps  on  19  July  1993  indicated  that  one 
of  the  preeminent  issues  regarding  the  future  of  the  Supply 
Corps  was  Inventory  Management /Reduction.  He  stated  that 
inventory  reduction  is  "a  congressionally  mandated  process  and 
a  fiscal  necessity  ....  we  must  continue  to  aggressively 
pursue  inventory  reductions  in  an  intelligent  manner, "  and 
that  it  "demands  our  immediate  and  continuous  attention"  [Ref . 
1]  • 

A  key  aspect  of  inventory  reduction  is  the  process  used  to 
identify  two  types  of  inventories:  Economic  Retention  Stock 
(ERS)  and  potential  excess  inventory.  ERS  (sometimes  referred 
to  as  Economic  Retention  Requirement  (ERR) )  is  the  portion  of 
the  inventory  above  current  requirements  which  is  determined 
to  be  more  economical  to  retain  for  future  use  as  opposed  to 
disposing  and  reprocuring  in  the  future.  The  sum  of  current 
requirements  and  ERS  is  called  the  Retention  Level  (RL)  when 
it  is  defined  in  terms  of  years  worth  of  annual  demand  and  is 
called  Retention  Quantity  (RQ)  when  it  is  defined  in  terms  of 


the  number  of  units.  For  this  thesis  the  retention  limit  will 
generally  be  expressed  in  terms  of  years  worth  of  annual 
demand  and  referred  to  as  the  RL .  Potential  excess  inventory 
is  that  portion  of  material  on-hand  and  on  order  beyond  the 
RL. 

In  1985  the  DOD  adopted  a  policy  to  retain  all  units  of 
any  item  having  application  to  a  weapons  system  in  active  use 
by  any  of  the  U.  S.  military  services  [Ref .  2] .  This  disposal 
moratorium  was  established  as  a  result  of  inconsistencies  the 
GAO  identified  in  U.  S.  Air  Force  economic  retention  policy. 
In  effect,  the  moratorium  eliminated  the  need  for  any  economic 
retention  models.  Motivated  by  new  GAO  findings  in  1988  and 
1990  regarding  the  growth  of  DOD  secondary  inventories  [Refs. 
3  &  4] ,  in  1990  the  DOD  lifted  the  disposal  moratorium  [Ref. 
2].  NAVSUP  Instruction  4500.13  [Ref.  5]  was  subsequently 
issued  to  provide  policy  on  retention  of  wholesale  Navy 
material.  The  retention  limit  was  set  at  20  years  worth  of 
forecasted  annual  demand  for  items  that  have  been  stocked  in 
the  supply  system  for  more  than  seven  years  and  coded  as 
"essential"  material.  Here  "essential"  material  is  defined  as 
an  item  whose  failure  would  result  in  the  loss  or  severe 
degradation  of  primary  mission  capability.  As  a  result  of  the 
shrinking  DOD  budgets  and  continued  congressional  concern  over 
large  DOD  secondary  inventories  the  retention  level  for 
wholesale  Navy  material  was  further  reduced  in  August  1992  to 
eight  years  worth  of  forecasted  annual  demand  [Ref.  6]  . 


This  thesis  contains  an  analysis  and  comparison  of  the 
U.  S.  Navy's  current  economic  retention  process  to  four 
mathematical/optimization  models  (Economic  Retention  Decision 
Models)  designed  to  assist  in  making  retention/disposal 
determinations  with  respect  to  excess  inventories.  The 
motivation  for  this  research  was  based  on  three  factors. 
First,  the  Navy  Inventory  Control  Points  (ICP)  are  not 
confident  that  eight  years  worth  of  forecasted  annual  demand 
is  an  appropriate  RL.  Second,  with  the  ongoing  budget 
reductions  and  reductions  in  the  size  of  the  Fleet,  excess 
inventories  will  continue  to  be  a  financial  and  administrative 
burden.  For  example,  as  of  March  1993  the  Navy  held  $1.9 
billion  in  ERS  and  $1.5  billion  in  potential  excess  inventory 
for  1H,  3H  and  7  COG1  material.  Finally,  DOD  Regulation 
4140. 1-R  [Ref.  7:p.  4.5]  recommends  that  better  analysis 
supporting  retention  decisions  be  done  through  the  use  of 
economic  retention  decision  models.  The  Navy  does  not 
currently  use  a  classical  economic  retention  decision  model 
when  making  retention/disposal  decisions  for  "essential" 
material . 

A  simulation  was  developed  in  the  Pascal  programming 
language  to  compare  the  Navy's  retention  process  and  the 
mathematical  models.  The  comparison  is  based  on  performance 


'Cognizant  symbols  (COG)  are  two  character  alpha- 
numeric codes  which  identify  and  designate  cognizant 
inventory  managers  who  exercise  supply  management  over  a 
specific  category  of  material. 


with  respect  to  the  measures  of  effectiveness  (MOE)  of  total 
cost  (TC)  and  average  customer  wait  time  (ACWT)  .  The 
simulation  was  co-developed  by  the  author  and  LT  Glenn 
Robillard,  and  was  designed  to  emulate  the  portions  of  the 
Navy's  Uniform  Inventory  Control  Program  (UICP)  applicable  to 
this  research.  The  simulation  represents  the  demand  process 
of  a  hypothetical  Navy  managed  consumable  item.  The  period  of 
time  over  which  demand  is  simulated  and  the  characteristics  of 
the  item  are  specified  by  the  user  during  the  initialization 
of  the  simulation.  Measures  of  effectiveness  to  be  used  in 
the  performance  comparison  will  be  calculated  from  the  actual 
cost  and  customer  wait  time  data  generated  by  the  simulation. 
The  UICP  retention  process  and  the  various  retention  decision 
models  will  be  tested  in  a  variety  of  simulation  scenarios. 
The  scenarios  are  based  on  combinations  of: 

-  unit  price 

-  mean  quarterly  demand 

-  variance  of  quarterly  demand 

-  patterns  of  declining  mean  quarterly  demand 

-  levels  of  excess  inventory 

-  inventory  holding  cost  rate 

-  obsolescence  rate 

-  administrative  order  cost  rate 

-  salvage  rate 

The  goal  of  this  thesis  is  to  determine  how  effective  the 
Navy's  retention  logic  is  as  compared  with  the  four  economic 
retention  decision  models. 


B.   U.  S.  NAVY  ECONOMIC  RETENTION  POLICY 

As  discussed  in  the  introduction  to  this  chapter,  the 
Navy's  Economic  Retention  policy  has  been  in  a  state  of  flux 
for  approximately  nine  years.  The  current  RL  for  "essential" 
materials  (i.e.,  Item  Mission  Essentiality  Codes  (IMEC)  3,  4, 
and  5)  is  set  at  eight  years  worth  of  annual  forecasted 
demand,  with  ERS  constrained  to  a  minimum  retention  quantity 
of  five  units.  All  material  that  has  been  stocked  in  the 
supply  system  for  less  than  seven  years  is  not  subject  to  a 
retention  limit.  This  material  is  retained  until  the  seven 
year  waiting  period  has  passed  before  being  subject  to 
retention  review. 

Retention  and  disposal  requirements  are  reviewed  by  the 
ICP  semi-annually  in  conjunction  with  the  execution  of  the 
March  and  September  inventory  Stratification,  UICP  application 
B20.  Stratification  is  the  process  of  matching  current 
inventory  to  requirements  and  categorizing  inventory  based  on 
the  type  of  requirement.  DOD  Regulation  4140. 1-R  [Ref.  7:p. 
4.3]  defines  the  Stratification  categories  as  Authorized 
Acquisition  Objective  (AAO) ,  Economic  Retention  Stock  (ERS) , 
Contingency  Retention  Stock  (CRS) ,  and  Potential  Reutilization 
Stock  (PRS) .  The  Authorized  Acquisition  Objective  is  a 
combination  of  the  peace-time  requirements  for  U.S.  Forces 
through  the  end  of  the  second  fiscal  year  following  the 
current  date  and  the  approved  stockage  requirements  for  grant - 
aid  and  military  assistance  programs.   Economic  Retention 


Stock  is  inventory  held  beyond  the  Authorized  Acquisition 
Objective  which  is  determined  to  be  more  economical  to  hold 
for  future  requirements  as  opposed  to  disposing  and 
reprocuring  in  the  future.  Contingency  Retention  Stock  is 
inventory  held  for  known  or  potential  requirements  not  covered 
by  Authorized  Acquisition  Objective,  such  as  initial 
outfitting,  mobilization  and  Foreign  Military  Sales  (FMS) . 
Potential  Reutilization  Stock  (also  known  as  Potential  Excess 
(PE)  )  is  all  inventory  beyond  the  sum  of  the  Authorized 
Acquisition  Objective,  Economic  Retention  Stock  and 
Contingency  Retention  Stock. 

The  ICPs  will  make  the  final  retention/disposal  decisions 
on  material  categorized  as  Potential  Reutilization  Stock. 
When  a  disposal  release  order  is  issued  by  the  ICP,  the  depot 
holding  the  Potential  Reutilization  Stock  will  transfer  the 
material  to  Defense  Reutilization  Marketing  Office  (DRMO)  for 
salvage  or  reuse.  For  this  research  all  Potential 
Reutilization  Stock  is  assumed  to  be  sent  immediately  to  DRMO 
for  disposal. 

The  calculation  of  Economic  Retention  Stock  (ERS) 
performed  during  the  UICP  Stratification  application  is 
summarized  as  follows  [Ref.  6,8]: 


ERS   =  Max   {  {RL-D1-D2-D3-M)  ,5}  1'1 


Where : 

RL  =  eight  years  worth  of  forecasted  annual  demand. 
Dl   =   forecasted  demand,  remainder  of  current  year. 
D2   =   annual  forecasted  demand,  appropriation  year. 
D3   =   annual  forecasted  demand,  budget  year. 
M   =   reorder  Objective,  which  equals  the  sum  of 

safety  stock,  leadtime  demand,  and  an  economic 

order  quantity  (EOQ) . 

The  calculation  for  Economic  Retention  Stock  (Equation 
1.1)  is  based  on  recurring  demand  and  does  not  take  into 
account  the  portions  of  the  Authorized  Acquisition  Objective 
which  are  considered  non-recurring  demand,  such  as  Preplanned 
Program  Requirements  (PPR),  Prepositioned  War  Reserves  (PWR), 
Other  War  Reserves  (OWR)  and  outstanding  backorders  (Due-out) . 
In  addition,  Equation  1.1  constrains  the  Economic  Retention 
Stock  to  a  minimum  of  five  units,  to  ensure  a  minimal  buffer 
or  safety  stock  is  maintained  for  "essential"  material.  The 
actual  amount  of  inventory  held  is  equal  to  the  sum  of 
Authorized  Acquisition  Objective,  Economic  Retention  Stock  and 
Contingency  Retention  Stock  (where  Authorized  Acquisition 
Objective  plus  Economic  Retention  Stock  equals  the  System 
Retention  Level) .  By  placing  the  five  unit  minimum  constraint 
on  Economic  Retention  Stock,  the  System  Retention  Level  is 
also  constrained  to  a  minimum  of  five  units.  For  this  thesis 
Planned  Program  Requirements,  Prepositioned  War  Reserves, 
Other  War  Reserves  and  Contingency  Retention  Stock  were 
assumed  to  be  zero. 

Because  the  key  to  the  amount  of  inventory  categorized  as 
Economic  Retention  Stock  and  Potential  Reutilization  Stock  is 


the  RL,  this  research  will  focus  on  alternative  methods  of 
calculating  a  RL  through  the  use  of  Economic  Retention 
Decision  Models. 

C.   ORGANIZATION  OF  RESEARCH 

The  remainder  of  this  thesis  will  be  devoted  to  the 
discussion  of  mathematical  economic  retention  models,  the 
development  of  the  analytical  approach  and  simulation,  and  the 
presentation  of  the  simulation  results  and  conclusions. 
Chapter  II  reviews  various  mathematical  models  and  discusses 
selection  of  the  models  chosen  for  the  research.  Chapter  III 
develops  the  analytical  approach  to  be  used  in  comparing  the 
UICP  retention  process  to  the  mathematical  models  chosen  in 
Chapter  II.  Chapter  IV  provides  a  description  of  the 
simulation,  to  include  a  discussion  of  the  major  procedures 
and  algorithms  used.  Chapters  V  and  VI  present  the  simulation 
results.  Finally,  conclusions  and  recommendations  are 
presented  in  Chapter  VII. 


II.   ECONOMIC  RETENTION  DECISION  MODELS 
A.   LITERATURE  REVIEW 

Excess  inventories  are  an  administrative  and  economic 
burden  which  consume  valuable  warehouse  space,  deplete  working 
capital  and  help  to  reduce  inventory  accuracy.  In  general, 
there  are  two  causes  for  excess  inventory.  First,  the  demand 
rate  may  be  overestimated  due  to  a  forecasting  error,  a  change 
in  technology  or  a  change  in  operating  tempo.  Second,  the 
Navy  may  obtain  more  units  than  they  intend  in  a  given 
replenishment  action.  This  can  happen  as  a  result  of  errors 
in  procurement  document  quantities  or  because  the  supplier 
delivers  more  units  then  the  Navy  requested. 

Mathematical  models  designed  to  represent  the  excess 
inventory  problem  are  known  as  Economic  Retention  Decision 
Models.  The  objective  of  an  Economic  Retention  Decision  Model 
is  to  reduce  the  administrative  and  economic  burden  of 
carrying  excess  inventory  through  disposal  of  surplus  stock. 
The  approach  to  determining  how  much  excess  inventory  to  carry 
and  how  much  should  be  disposed  of  varies  from  model  to  model. 
The  basic  idea  behind  most  Economic  Retention  Decision  Models 
is  to  determine  the  trade-off  between  the  cost  to  dispose  of 
material  and  the  cost  to  hold  material.  What  differs  between 
models  is  how  to  define  the  cost  to  dispose  of  material  and 


the  cost  to  hold  material.   While  considerable  literature 

exists   on   determining   inventory   retention   levels,   few 

researchers   have   directly   addressed   the   Navy's   excess 

inventory  problem. 

1 .   Heyvaert  and  Hurt 

Heyvaert  and  Hurt  developed  one  of  the  first  models 

that  treated  the  situation  in  which  mean  demand  is  declining, 

which  is  one  of  the  causes  of  excess  inventory  [Ref .  9] .   The 

model  was  designed  to  provide  a  simple,  fast  and  accurate 

method  for  determining  optimal  stocking  levels  for  slow-moving 

items.  A  unique  objective  function  based  on  material  storage 

costs  and  the  cost  of  non-satisfaction  of  a  demand  was 

derived,  with  the  optimal  inventory  levels  (available  level) 

being  determined  by  minimizing  the  total  cost  function  (W) : 

2.1 
W    =  <xT  +  pP 


a  =  V  (s-d/2)Pd  +  V  {s2/2d)pd 


p  =  y;  {d-s)Pd 


2.2 


2.3 


Where 


a  =  long  run  mean  stock  level,  assuming  variations  in 

demand  are  linear. 
I  =  total  cost  to  store  one  unit  during  a 

replenishment  period  (t). 
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(3  =  expected  number  of  shortages  during  a 

replenishment  period  (t). 
P  =  total  cost  resulting  from  non-satisfaction  of  a 

demand  requirement . 
s  =  current  inventory  on  hand  and  on  order  (available 

level) . 
d  =  demand  during  a  replenishment  period  (t) . 
pd  =  probability  that  an  issue  of  size  d  will  have  to 

be  made,  assumes  d  has  a  poisson  distribution 

with  mean  =  |i,  0.1  <  (i  <  10.0. 


Although  this  model  does  not  treat  the  problem  of 
excess  stock  generated  from  reduced  demand  rate,  the  concept 
of  determining  optimality  based  on  cost  and  customer 
satisfaction  helped  motivate  the  use  of  total  cost  and  ACWT  as 
the  MOEs  to  be  used  in  the  performance  comparison  phase  of 
this  research. 

2.  Rothkopf  and  Fromovitz 

The  Rothkopf  and  Fromovitz  model  for  a  save-discard 
decision  involves  a  bulk  commodity  that  comes  in  a  rented 
container  [Ref.  10].  Although  this  model  is  too  specific  to 
adapt  to  the  Navy  problem,  it  is  one  of  the  few  models  which 
deals  with  the  stochastic  nature  of  demand.  It  also  applies 
the  concept  of  discounting  future  costs. 

3 .  Hart 

Hart  designed  a  procedure  to  calculate  a  procurement 
schedule  and  retention  quantity  for  a  selected  inventory  item 
[Ref.  11].  The  procedure  minimizes  the  sum  of  discounted 
relevant  costs  which  vary  in  amount  or  in  timing  with  changes 
in  the  retention  quantity.  Relevant  costs  include  the  cost  of 
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holding  the  retained  quantity,  cost  of  not  scrapping  the 
retained  quantity,  cost  of  delaying  the  write-off  of  the 
retained  quantity  (write-off  occurs  when  the  material  is 
either  sold  or  scrapped),  cost  of  procured  quantities,  and 
cost  of  holding  the  procured  quantities.  The  minimum  cost 
retention  quantity  is  determined  using  a  sequential  search 
procedure  based  on  the  "Golden  Section"  method.  For  each 
retention  quantity  considered,  a  procurement  schedule  is 
determined  heuristically  according  to  a  set  of  rules  based  on 
Economic  Order  Quantities  and  Economic  "Bridging"  Quantities. 
While  Hart's  model  provides  an  interesting  approach  to  the 
excess  inventory  problem,  the  level  of  effort  required  to 
incorporate  his  model  into  the  Navy's  UICP  levels  software 
application  was  beyond  the  scope  of  this  research. 
4.   Simpson 

Simpson's  "formula"  is  one  of  the  most  frequently 
cited  works  in  recent  literature  dealing  with  the  excess 
inventory  problem  [Ref .  12] .  The  formula  provides  a  clear  and 
easy-to-use  procedure  which  was  originally  developed  for 
possible  implementation  by  the  Navy. 

The  formula  compares  the  cost  of  storing  material, 
considering  the  chance  that  it  may  become  obsolete  and  the 
cost  of  repurchasing  the  material  in  the  future  when  needed, 
if  present  surpluses  are  sold  by  disposal  action  today.  An 
economic  retention  period  formula  was  derived  which  equals  the 
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cost  (per  dollar  value  of  material)  of  retaining  X  years  of 
stock  (CJ  less  the  cost  (per  dollar  value  of  material)  of 
disposing  of  X  years  of  stock  (Cd)  .  In  the  derivation  of  the 
formula  it  was  assumed  that  future  demand  was  known  and 
constant,  all  general  price  levels  and  rates  were  also 
constant.   The  derivation  is  a  follows: 


Cr  =  l-(l-p)x+r((l-p)  {l+i)x+  (1-p)2  (l+i)*-1* +  (i-p)*(i+i)) 

2.4 

Cd  =  l-D{l+i)x  2-5 

Where : 

Cr  =  cost  of  retaining  X  years  of  stock. 

Cd  =  cost  of  disposing  of  X  years  of  stock. 

D  =  fraction  of  present  unit  price  of  material  which 

will  be  realized  in  disposal  sales  (i.e.  15  cents 

on  the  dollar,  D  =  .15). 
p  =  fraction  of  material  which  will  become  obsolete  in 

any  one  year . 
r  =  annual  storage  cost  rate  per  dollar  of  material. 
i  =  annual  interest  rate. 
X  =  Retention  Level  (RL) . 

Equation  2.4  (Cr)  represents  the  obsolescence  cost  and 

storage  cost  incurred  from  holding  material  for  X  years.   The 

obsolescence  cost  term  (l-(l-p)*)  calculates  the  dollar  value 

of   loss   due   to  obsolescence   (per  dollar  of  material) 

compounded  over  X  years.   The  storage  cost  represents  the 

cumulative  cost  of  holding  inventory  X  years,  where  the  dollar 
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value  of  inventory  is  reduced  by  p  each  year  due  to 
obsolescence,  and  includes  the  cost  (compounded  annually)  of 
lost  interest  revenue  from  money  used  for  storage  costs. 

Equation  2.5  (Cd)  represents  the  cost  (per  dollar  of 
material)  of  furnishing  a  given  quantity  of  an  item  at  time  tx 
given  material  was  disposed  of  at  time  t0.  The  cost  of 
disposal  is  reduced  by  the  return  from  disposal  sales,  which 
is  increased  in  value  at  the  compound  interest  rate  until  tx. 

The  value  for  X,  the  optimal  number  of  years  stock  to 
be  retained  (RL)  is  obtained  by  equating  Cr  to  Cd  and  solving 
for  X.   Simpson  gives  the  following  such  solution: 


log 
X    =  — 


D(i+p)+r(l-p)  (l+i) 
i+p+r(l-p) (l+i) 


2.6 


logf^?' 


5 .   Mohon  and  Garg 

The  Mohon  and  Garg  model  expanded  on  Simpson's 
economic  retention  period  formula  by  considering  the  case  in 
which  shelf  life1  is  probabilistic  [Ref.  13].  They  also 
derived  the  specific  case  in  which  shelf  life  is  exponentially 
distributed.   While  the  Mohon  and  Garg  model  may  offer  some 


:Mohan  and  Garg  assume  shelf  life  is  a  function  of 
obsolescence  and  deterioration.  The  Navy  uses  a  combination 
of  shelf  life  codes  to  account  for  deterioration  of  material 
and  an  obsolescence  factor  included  in  the  system  (UICP) 
holding  cost  rate. 
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improvements  over  Simpson's  basic  formula,  it  would  be 
difficult  to  apply  their  model  in  the  Navy's  UICP. 
Determining  the  appropriate  probability  distributions  for 
obsolescence  and  deterioration  rates  to  use  with  the  expanded 
model  would  be  a  complex  task.  Because  of  this,  a  retention 
model  which  has  robust  performance  with  respect  to 
obsolescence  rate  might  be  more  appropriate  for  the  Navy. 
6 .   Tersine  and  Toe lie 

Tersine  and  Toelle  developed  two  "net  benefit"  models 
of  differing  complexity  for  determining  inventory  retention 
levels  [Ref.  14].  The  models  indicate  how  much  inventory 
should  be  held  (economic  time  supply  or  RL)  and  how  much 
should  be  disposed  of  at  a  specific  salvage  price  for  a  given 
item.  In  the  derivation  of  both  "net  benefit"  models  it  was 
assumed  that  future  demand  was  known  and  constant,  all  general 
price  levels  and  rates  were  also  constant,  and  no  stockouts 
were  permitted. 

The  first  or  simple  net  benefit  (NB)  model  calculates 
the  economic  time  supply  of  material  to  hold  that  maximizes 
net  benefit  (cost  savings)  resulting  from  the  sale  of  excess 
stock.  The  formulation  of  the  NB  equation  and  the  economic 
time  supply  (t0)  is  as  follows: 
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Net  Benefit  =  Salvage  Revenue  +  Holding  Cost  Savings  2   7 

-Repurchase  Cost  -  Reorder  Cost 

Salvage  Revenue  =  qPe  =  Pg{M-tR)    =  PJt-PJlt  2.8 


Holding  Cost  Savings  =  igg-  ^-q)2PF 

*  2R  2R 


2.9 


M2PF _  RPFt2  _  MQPF  +  QPFt 
2R  2  2R  2 


Repurchase  Cost  =  Pq  =  PM-PRt  2  .10 


Reorder  Cost 


Cq  _    CM  _    CRt 
'     Q     '     Q  0 


2.11 


Where: 


q  =  M  -  tR  =  amount  of  excess  inventory  that  is 

disposed  of,  in  units, 
t   =  time  supply,  in  years  worth  of  inventory 

retained. 
t0  =  economic  time  supply  in  years  worth  of  inventory 

retained  (RL) . 
C   =  ordering  cost  per  order. 
F   =  annual  holding  cost  fraction. 
M  =  available  stock  in  units. 
P   =  unit  cost  of  the  item. 
Ps  =  unit  salvage  value  of  the  item. 
Q   =  economic  order  size  in  units. 
R  =  annual  demand  in  units. 


The  resulting  net  benefit  formulation  is  as  follows 


fit)    =   -miljpR-p^OPF.^^M^.WPF  pM__CM 

2         \  +        2         Q  )  2R  2R         *  Q 


2.12 
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Note  that  f (t)  describes  a  parabola  and  therefore  has  a  single 
maximum.   By  taking  the  first  derivative  of  f(t)  with  respect 
to  t  and  setting  it  equal  to  zero,  the  economic  time  supply 
(t0)  equals: 


=  p-pb+c/q^  Q  2>13 

0       PF  2R 


Since  the  second  derivative  of  f  (t)  is  negative,  tc  is  located 
at  the  maximum  point . 

The  second  model,  a  present  value  net  benefit  (NB-NPV) 
model,  compensates  for  the  fact  that  investments  occur  at 
different  points  in  time  by  discounting  them  to  their  present 
value.  Under  continuous  compounding,  the  present  value  of  a 
future  purchase  of  an  item  with  a  current  price  (P)  at  time  t 
is  l?e{i~kn ,  where  i  is  the  annual  inflation  rate  and  k  is  the 
discount  rate.  For  this  thesis  inflation  was  assumed  to  be 
zero  and  the  discount  rate  was  set  to  seven  percent. 

The  formulation  of  the  objective  function  of  the  net 
present  value  version  of  the  net  benefit  model  is  as  follows: 


f{t)    m    PFtR(e-kt-l)  +  ^PFQ     +     _PQ+g       e(i-*)t-Pgafc+PflM 


+ 


2k 
2k 


2(i-k)      e(i"*)c>/*-l 


PFQ     +   PQ+C      • 
2(i-lc)   eU-*)G/*-i 


e(i-lc)Af/J? 


2.14 
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Although  Equation  2.14  cannot  be  solved  directly  for  t, 
Newton's  method  can  be  used  iteratively  to  obtain  a  solution. 
Where : 

t   -  t    -  HlhL  2.15 

For  this  thesis  the  t0  obtained  from  the  NB  model  was 
divided  by  two  and  then  used  as  an  initial  estimate  for  the 
NB-NPV  model  t0.  The  NB  model  t0  was  divided  by  two  to  ensure 
that  the  initial  approximation  to  the  NB-NPV  model  t0  was 
sufficiently  close  to  the  optimal  solution  so  that  Newton's 
method  would  converge  upon  a  solution.  This  choice  of  initial 
starting  solution  was  particularly  important  for  the  demand 
scenarios  with  low  unit  price,  because  the  RLs  for  the  NB-NPV 
model  were  expected  to  be  significantly  less  than  the 
respective  RLs  for  the  NB  model.  Successive  values  for  t  were 
calculated  until  ltn+1-tnl  <  0.01.  When  this  stopping 
condition  was  satisfied,  the  final  t0  for  the  NB-NPV  model  was 
set  equal  to  tn+1. 

Although  the  Navy  UICP  assumes  that  demand  is 
stochastic  and  allows  for  stockouts,  Tersine  and  Toelle's  "net 
benefit"  models  are  well  suited  for  application  in  the  Navy's 
UICP.  In  an  effort  to  account  for  the  potential  for  stockouts 
due  to  the  stochastic  nature  of  demand  typically  associated 
with  a  Navy  managed  item,  a  modified  "net  benefit"  (NB-MOD) 
model  was  developed. 

18 


Disposal  of  some  quantity  of  excess  inventory  will 
cause  the  inventory  position  (IP)  to  reach  the  reorder  point 

(RO)  prior  to  the  time  it  would  have  reached  the  RO  without 
the  disposal  of  the  excess  inventory.  Therefore,  with 
disposal  the  inventory  system  will  experience  one  or  more 
additional  reorder  cycles,  depending  on  the  quantity  disposed. 
Because  of  the  stochastic  nature  of  demand,  every  additional 
reorder  cycle  exposes  the  inventory  system  to  an  increase  in 
the  number  of  possible  stockouts.  In  the  modification  of  the 
NB  model,  for  every  additional  reorder  cycle  that  occurs  due 
to  disposal,  the  net  benefit  from  disposal  is  reduced  by  the 
expected  additional  shortage  costs.   The  modified  formulation 

(NB-MOD)  is: 

Net  Benefit  {MOD)    =      Salvage  Revenue  +  Holding  Cost  Savings 

-  Repurchase  Cost  -  Reorder  Cost 

-  Shortage  Cost 

2.16 

The  new  term,  shortage  cost,  is  a  linear  function  of 

the  number  of  additional  reorders  (N)  that  are  made  due  to  the 

disposal  of  q  units  worth  of  stock.   We  must  first  calculate 

N: 


M_ 
R 

(M-q) 
R 

M-tR 

Q 
R 

0 

N-     R         R         -  M~tR  2.17 
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Where 


N       =  number  of  additional  reorders  required  due 

to  the  original  disposal  of  q  units. 
M/R     =  mean  time  supply  of  material  without 

disposal . 
(M-q) /R  =  mean  time  supply  of  material  with  disposal. 
Q/R     =  mean  time  between  reorders. 
E[x>RO]  =  expected  number  of  shortages  in  a  reorder 

cycle. 
RO      =  reorder  point . 
A       =  shortage  cost  per  unit . 
x       =  actual  demand  during  a  procurement 

leadtime . 


Now  we  may  obtain  the  shortage  cost : 

Shortage  Cost       =  NA{E[x>RO])  2.18 

The  expected  number  of  shortages  (E[x>RO])  in  a 
reorder  cycle,  assuming  that  X  is  normally  distributed  with 
mean,  |u  and  variance,  a2   is  given  by  [Ref .  15]  : 


E[x>RO]    =   (\i-RO)xplz>-R^-^Yaxflz=^-^\ 


2.19 


Where 


P  lz>  R0   E \  -  Probability  of  a  stockout, 
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f  [Z- ^-1  =  Standard  normal  distribution  function 


IT*?) 


RO-\i 


evaluated  at 

o 


RO  =  RL  +  CTZ. 

Z   =  standard  normal  distribution  value  which 

satisfies  the  UICP  "probability  of  a  stockout"1 
expression  for  a  given  values  of  R,  L,  u,  a2,  F, 
P,  A,  and  E. 

u   =  mean  leadtime  demand2. 

a2  =  variance  of  leadtime  demand3. 

L   =  procurement  leadtime  demand  in  years. 


Because  the  term  E[x>RO]  in  Equation  2.20  is  not  a  function  of 
t,  the  expected  number  of  shortages  in  a  reorder  cycle  is 
treated  as  a  constant . 

Collecting   these   terms   together,   the   objective 
function  of  the  modified  net  benefit  model  is: 

fit)    =  -^i^JPR-pp+OPF  +  ^\t+^PF_MgPF 
V  '  2         \  ^       2         Q)         2R  2R 

2  .20 
+  PJd-PM-^-UtlE\A{E[x>RO]  ) 


!The  UICP  levels  application  calculates  the  probability 
of  stockout  using  the  following  expression:  FP/(FP+AE),  where 
F  is  the  annual  holding  cost  fraction,  P  is  the  unit  cost  of 
an  item,  A  is  the  shortage  cost  per  unit  and  E  is  the  military 
essentiality. 

2In  UICP  this  parameter  is  PPV. 
3In  UICP  this  parameter  is  B019A. 
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Next  we  must  determine  if  Equation  2.20  is  a  parabola. 
Note  that  Equation  2.20  can  be  expressed  in  the  form  at~+bt+c 
and  thus  is  a  parabola  [Ref.  16,p.39].  By  grouping  terms 
appropriately  we  obtain  the  constants  a,  b,  and  c: 


a  -  - 


(RPF)  2.21 


b     =     PR-PgR+-^F-+-^--A(E[x>RO])  2.22 

^2    Q      Q 


c     =     ^l-M^+PJd-PM-^-M,A{E[x>RO])  2.23 

2R  2R         *  0      0 

By  taking  the  first  derivative  of  f (t)  (Equation  2.20) 
with  respect  to  t,  setting  it  equal  to  zero  and  solving  for  t, 
the  modified  economic  time  supply  (t0)  is  obtained: 


t     =    p-pBu.   0   +  C+A{E[x>RO))  2.24 

0    PF       2R  QPF 


Since  the  second  derivative  of  f  (t)  is  negative,  t0  is  located 
at  the  maximum  point . 

7 .   Silver  and  Peterson 

Silver  and  Peterson  developed  a  rule  for  the  disposal 
of  excess  inventory  which,  while  derived  using  a  different 
approach  from  that  of  Tersine  and  Toelle,  yields  the  same 
numerical  results  [Ref.  17:Chap.  9].   In  a  manner  similar  to 
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Simpson's  approach,  Silver  and  Peterson  focused  on  the  cost  of 
no  disposal  (GND)  versus  the  cost  of  disposal  (Cr,)  .   Then, 
assuming  an  EOQ  strategy  with  deterministic  demand,  Silver  and 
Peterson  formulated  an  objective  function  of  CNC  -  Cr  ,  where: 


J2vr  2.25 


'm  2D 

CD    =  -gW+{-^)  (^)vr+-f?(y/2-ADK+Dv) 


2.26 


Where 


CND  =  cost  of  no  disposal. 

CD  =  cost  of  disposal. 

W  =  amount  of  excess  inventory  to  dispose  in  units 

I  =  on  hand  inventory  in  units. 

D  =  expected  annual  demand  in  units. 

v  =  unit  price. 

g  =  salvage  value  per  unit . 

r  =  holding  cost  rate  $/$/yr. 

A  =  administrative  order  cost  per  order. 


The  last  term  in  CD  represents  the  inventory  holding  cost,  the 
administrative  ordering  cost  and  the  repurchase  cost  of  the 
stock  disposed  (W)  incurred  after  the  stock  retained  is 
exhausted  (which  occurs  at  time  (I-W)/D  and  continues  until 
time  I/D) .  The  inventory  holding  cost  and  the  administrative 
ordering  cost  are  calculated  assuming  an  EOQ  strategy.  The 
repurchase  cost  of  the  stock  disposed  (W)  is  calculated 
assuming  the  repurchase  unit  cost  equals  the  unit  cost  at  the 
time  of  disposal. 

By  taking  the  first  derivative  of  the  objective 
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function  (CND  -  Cp)  with  respect  to  W  and  setting  it  equal  to 
zero  we  obtain  Silver  and  Peterson's  "decision  rule  for 
disposal,"  an  expression  for  W,  which  maximizes  CNr,  -  CD. 


W=  I-EOQ-D{v-^  2.27 

vr 


Although  Silver  and  Peterson  used  a  different  approach 
in  the  formulation  of  their  model  than  Tersine  and  Toelle,  it 
can  be  show  that  Silver  and  Peterson's  "decision  rule  for 
disposal"  and  Tersine  and  Toelle 's  simple  "net  benefit"  model 
yield  the  same  results.  Using  Silver  and  Peterson's  notation 
it  can  be  shown  that  Tersine  and  Toelle 's  economic  time  supply 
(t0)  multiplied  by  annual  demand  (D)  equals  Silver  and 
Peterson's  equation  for  the  amount  of  inventory  to  retain  (I- 
W)  ,  as  follows : 


toXD=  £izz2L+    da   +eoo 

0  vr  viEOQ       2 

substituting   J-=^=?    fox    EOQ   yeilds 


toXD  =  Q(y-sf)  +      a     ♦  raff 


vr 


f 


vr 


/ 


7UT 


=   D(v-g)  ^ 

vi  )  2vr 

=    D{V~^     +  EOQ  =  I-W 
vr 


QED 
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Because  the  two  derivations  result  in  the  same 
economic  retention  decision,  only  the  notation  from  one 
derivation  was  used  in  the  thesis.  Tersine  and  Toelle's 
notation  and  approach  was  chosen,  primarily  because  of  the 
extensive  background  provided  on  the  excess  inventory  problem 
and  the  thorough  development  of  the  derivation  of  their  model. 
8.   Rosenfield 

Rosenfield  developed  a  model  for  the  optimal  number  of 
items  to  retain  for  slow  moving  or  obsolete  inventories  under 
conditions  of  stochastic  demand  and  perishability  (shelf-life) 
[Ref.  18].  This  model  is  one  of  the  few  that  addresses  the 
probabilistic  nature  of  demand  for  the  general  excess 
inventory  problem.  Rosenfield 's  basic  model  assumes  that 
episodes  of  demand  can  be  represented  by  a  renewal  process. 
This  allows  for  a  variable  number  of  units  demanded  per 
episode.  The  model  determines  the  correct  number  of  units  to 
retain.  In  the  model  a  unit  is  worth  disposing  of  if  its 
immediate  salvage  value  (it's  present  resale  value)  exceeds 
it's  expected  discounted  sales  value  (from  a  future  sale  if 
the  unit  is  held  in  inventory)  minus  the  expected  holding 
costs  to  be  incurred  (until  the  time  of  sale) . 

Because  Rosenfield ' s  final  expression  for  the  number 
of  units  to  retain  contains  the  moment  generating  function  for 
the  distribution  of  time  between  demand  episodes,  the  model 
becomes  complex  when  the  distribution  of  demand  episodes  is 
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not  a  Poisson  distribution.  Although  this  model  may  have 
application  to  the  Navy's  excess  inventory  problem,  the  level 
of  effort  required  to  incorporate  Rosenfield's  model  into  the 
Navy's  UICP  levels  software  application  was  beyond  the  scope 
of  this  research. 

B.    SUMMARY 

The  mathematical  models  chosen  for  this  research  were 
based  on  their  applicability  to  the  Navy's  excess  inventory 
problem,  the  UICP  model,  and  the  simulation.  The  models 
chosen  were: 

-  Simpson's  "economic  retention  period  formula"  (TRAD). 

-  Tersine  and  Toelle's  simple  "net  benefit"  model  (NB) 

-  Tersine  and  Toelle's  present  value  "net  benefit"  model 
(NB-NPV) . 

-  The  modified  "net  benefit"  (NB-MOD) ,  a  version  of  the 
simple  "net  benefit"  model. 

These  models,  together  with  the  Navy's  UICP  current  retention 

logic,  will  be  referred  to  as  the  "models"  throughout  the 

remainder  of  the  thesis. 

Although  the  UICP  model  was  developed  under  the  assumption 

that  demand  is  stochastic,  all  the  mathematical  models  listed 

above  were  developed  under  the  assumption  that  demand  was 

deterministic  (with  the  exception  of  NB-MOD) .  The  decision  to 

use  primarily  deterministic  models  was  based  on  two  factors. 

First,   as  Simpson   [Ref.   12]   discussed,   the  effect  the 

deterministic  assumption  has  on  a  Retention  Level  (RL)  is  not 
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significant.  Secondly,  the  difficulty  of  incorporating  into 
the  UICP  model  and  into  the  simulation  the  stochastic  models 
reviewed  does  not  justify  the  small  improvement  in  accuracy 
which,  according  to  Simpson,  we  would  experience.  Because  a 
true  stochastic  economic  retention  model  was  not  used  in  this 
research,  a  Total  Cost  Analysis  (see  Chapter  III.C.l)  was 
conducted  to  develop  a  baseline,  with  respect  to  cost,  to 
evaluate  how  the  deterministic  models  actually  perform  in  a 
stochastic  environment. 
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III.   RESEARCH  APPROACH  AND  ANALYTICAL  METHOD 
A.   OVERVIEW 

The  analysis  that  was  done  for  this  thesis  made  use  of  a 
simulation  that  was  written  in  Pascal.  The  simulation  was 
developed  to  represent  the  Navy's  UICP  model  as  well  as  the 
mathematical  models  that  were  analyzed  in  this  research.  A 
complete  discussion  of  the  simulation  program  is  contained  in 
Chapter  IV. 

The  analysis  and  performance  comparisons  of  the  models 
were  based  on  MOEs  calculated  from  simulated  data  for  six 
basic  demand  scenarios.  For  each  demand  scenario  four 
retention  scenarios  were  analyzed  using  the  simulation.  A 
Total  Cost  Analysis  was  performed  to  determine  the  optimal 
amount  of  inventory  (from  just  the  cost  standpoint)  to  hold 
for  a  given  quantity  of  initial  excess  inventory.  A  Constant 
Demand  Analysis  was  performed  to  compare  the  various  models  to 
the  theoretically  optimal  retention  level  that  was  determined 
during  the  Total  Cost  Analysis.  The  same  input  parameter 
values  were  used  in  the  Constant  Demand  Analysis  as  in  the 
Total  Cost  Analysis.  A  Declining  Demand  Analysis  was 
performed  to  compare  the  models  in  three  scenarios  (patterns) 
of  declining  mean  demand.  Finally,  Sensitivity  Analysis  was 
performed  on  various  combinations  of  demand  scenario,  pattern 
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of  declining  mean  demand,  and  the  parameters  of  administrative 
reorder  cost  rate,  salvage  rate,  inventory  holding  cost  rate, 
and  obsolescence  rate.  (A  complete  discussion  of  the 
Sensitivity  Analysis  is  contained  in  Chapter  VI.) 

Table  1  provides  a  summary  of  retention  scenarios,  cross 
referenced  by  demand  scenario  and  mean  quarterly  demand 
pattern.  Each  entry  in  the  table  represents  a  set  of 
simulations  and  will  be  referred  to  as  a  simulation  setting. 
The  meanings  of  the  demand  scenario  acronyms  can  be  found  in 
Table  2.  A  summary  of  the  16  specific  settings  to  be 
considered  in  the  Sensitivity  Analysis  is  provided  in  Chapter 
VI,  Table  9. 

In  the  performance  comparison  phase  of  the  research  the 
models  were  ranked  based  on  the  MOEs  of  total  cost  and  ACWT. 
The  comparisons  were  done  by  demand  scenario  for  the  results 
from  the  analysis  scenarios  of  Constant  Demand  Analysis, 
Declining  Demand  Analysis,  and  Sensitivity  Analysis.  Multi- 
Attribute  Decision  Making  techniques  and  hypothesis  tests 
based  on  a  paired  difference  t-test  were  used  to  compare  the 
performance  of  the  models. 

B.   DEMAND  SCENARIOS 

Items  managed  by  the  Navy  are  assigned  a  Navy  Mark  Code 
based  on  unit  price  and  mean  quarterly  demand.  The  Mark  Code 
indicates  the  probability  distribution  for  leadtime  demand  and 
the  inventory  level  setting  method  to  be  used  in  the  UICP 
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model  [Ref.  19:p.  3-9].  Six  hypothetical  items  based  on  the 
Mark  Code  designation  criteria  were  selected  for  use 
throughout  the  research.  The  hypothetical  items,  called 
demand  scenarios,  were  chosen  so  that  the  effect  of  varying 
level  setting  computation  methods,  unit  price  and  mean 
quarterly  demand  on  economic  retention  decisions  could  be 
analyzed.  The  demand  scenarios  described  in  Table  2  are  a 
function  of  the  probability  distribution  of  demand  episodes, 


TABLE  1 .   SUMMARY  OF  SIMULATION  SETTINGS 


DEMAND 
SCENARIO 

DEMAND 
PATTERN 

HDHVHP 

HDHVLP 

HDLVHP 

HDLVLP 

LDHP 

LDLP 

CONSTANT 

MEAN 

DEMAND 

TCA 
CDA 

TCA 
CDA 

TCA 
CDA 

TCA 
CDA 

TCA 
CDA 

TCA 
CDA 

DECLINING 

MEAN 

DEMAND 

"STEP" 

DDA 

DDA 

DDA 

DDA 

DDA 

DDA 

DECLINING 

MEAN 

DEMAND 

" CONVEX " 

DDA 
SA(16) 

DDA 

DDA 

DDA 

DDA 
SA(16) 

DDA 

DECLINING 

MEAN 

DEMAND 

"CONCAVE" 

DDA 
SA(16) 

DDA 

DDA 

DDA 

DDA 
SA(16) 

DDA 

Legend:  TCA  =  Total  Cost  Analysis,  CDA  =  Constant  Demand 
Analysis,  DDA  =  Declining  Demand  Analysis,  SA  = 
Sensitivity  Analysis  (16  simulation  settings  for 
each  demand  scenario  and  demand  pattern  combi- 
nation) . 
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mean  quarterly  demand  (high  and  low) ,  variance  of  quarterly 
demand  (high  and  low) ,  and  unit  price  (high  and  low) .  Demand 
variance  for  the  demand  scenarios  with  a  normal  distribution 
are  classified  as  high  (with  a  standard  deviation  to  mean 
ratio  of  1.25)  and  low  (with  a  standard  deviation  to  mean 
ratio  of  0.30)  [Ref .  20] . 


TABLE  2 


DEMAND  SCENARIOS 


NAVY 
MARK 
CODE 

PROBABILITY 
DISTRIBUTION 

MEAN 

QUARTERLY 

DEMAND 

DEMAND 
VARIANCE 

UNIT 
PRICE ($) 

ACRONYM 

4 

Normal 

High:    20 

High:    625 

High: 1500 

HDHVHP 

4 

Normal 

High:    20 

Low:          36 

High: 1500 

HDL  VHP 

2 

Normal 

High:    20 

High:    625 

Low:         20 

HDHVLP 

2 

Normal 

High:    20 

Low:          36 

Low:          20 

HDLVLP 

3 

Poisson 

Low:         2 

N/A 

High: 1500 

LDHP 

1 

Poisson 

Low:          2 

N/A 

Low:          20 

LDLP 

C.   ANALYSIS  SCENARIOS 

1.   Total  Cost  Analysis 

This  analysis  was  performed  to  compute  a  total  cost 
for  100  quarters  of  demand  activity  for  a  given  demand 
scenario  based  on  the  following  set  of  assumptions.  Assume  at 
time  zero  the  inventory  is  in  an  excess  position  and  an 
immediate  retention/disposal  decision  is  made.  Next,  assume 
that  this  is  followed  by  100  quarters  of  demand  activity  with 
a  stationary  quarterly  mean  demand.    The  initial  on-hand 
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inventory  selected  for  demand  scenarios  with  high  unit  price 
was  equal  to  2  0  years  of  average  annual  demand.  For  demand 
scenarios  with  low  unit  price,  the  initial  inventory  was  equal 
to  25  years  of  average  annual  demand.  A  total  cost  was 
calculated  for  various  retention  levels  beginning  with  a  level 
equal  to  0.5  years  of  annual  demand  and  continuing,  in 
increasing  increments  of  0.5  years  annual  demand.  Retention 
levels  were  not  increased  beyond  the  inventory  on  hand  at  time 
zero.  Based  on  an  initial  inventory  of  20  years  worth  of 
annual  demand  for  the  demand  scenarios  with  high  unit  price, 
40  total  cost1  data  points  (retention  levels)  were  calculated. 
These  data  points  were  used  to  construct  total  cost  curves  for 
the  demand  scenarios  with  high  unit  price.  Based  on  an 
initial  inventory  of  25  years  worth  of  annual  demand  for  the 
demand  scenarios  with  low  unit  price,  50  total  cost  data 
points  (retention  levels)  were  calculated.  These  data  points 
were  used  to  construct  total  costs  curves  for  the  demand 
scenarios  with  low  unit  price. 

Each  total  cost  data  point  is  discounted  to  current 

year  dollars  and  is  equal  to  the  sum  of  material  cost, 

administrative  ordering  cost,  inventory  holding  cost,  shortage 

cost  and  salvage  revenue  which  accrue  over  a  simulation  period 

(See  Equations  3.1  and  3.2).   The  total  cost  data  points  for 


xThe  total  cost  figure  used  for  each  data  point  is  the 
average  total  cost  over  all  replications  of  the  respective 
simulation. 
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each  demand  scenario  were  then  plotted  to  form  a  total  cost 
curve  (See  Appendix  E,  Graphs  13  through  24)  .  The  goal  of  the 
Total  Cost  Analysis  was  to  determine  if  a  minimum  total  cost 
associated  with  a  single  retention  level  existed  in  a 
stochastic  demand  environment  in  the  same  way  as  shown  by 
Tersine  for  the  deterministic  case  [Ref .  14] .  The  minimum  of 
each  total  cost  curve  was  used  to  obtain  the  optimal  retention 
level  for  each  demand  scenario.  These  optimal  retention 
levels  were  used  as  a  benchmark  for  comparing  the  performance 
of  the  models  in  the  Constant  Demand  Analysis  phase. 

2.  Constant  Demand  Analysis 

This  analysis  was  designed  to  compare  the  performance 
of  the  models  to  the  performance  of  the  optimal  retention 
level  determined  in  the  Total  Cost  Analysis.  The  comparison 
was  done  for  all  combinations  of  the  demand  scenarios  and  the 
models  under  the  same  simulation  settings  that  were  used  in 
the  Total  Cost  Analysis.  The  goal  of  this  analysis  was  to 
determine,  for  each  demand  scenario,  how  the  models  performed 
in  the  Navy's  stochastic  demand  environment  with  respect  to 
the  optimal  retention  level. 

3 .  Declining  Demand  Analysis 

This  analysis  was  designed  to  compare  the  models  under 
a  scenario  involving  declining  mean  quarterly  demand.  Three 
patterns  of  declining  demand  where  developed  for  this 
analysis.   The  declining  demand  patterns  represent  possible 
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effects  the  reduction  in  Naval  Forces  and  budget  might  have  on 
demand  for  Navy  managed  items.  In  Appendix  E,  Graphs  1 
through  6  depict  the  six  patterns  of  declining  demand  that 
were  used.  Demand  activity  for  these  scenarios  begins  with  a 
pattern  of  30  quarters  of  stationary  mean  quarterly  demand. 
This  allows  the  simulation  model  to  reach  steady  state  as 
discussed  in  Chapter  IV.  This  was  followed  by  20  quarters 
with  declining  mean  quarterly  demand  and  finished  with  16 
quarters  of  constant  mean  quarterly  demand.  The  16  quarter 
period  was  included  to  allow  the  determination  of  the  long 
term  effect  that  a  specific  retention  policy  might  have  on 
performance.  Over  the  period  of  the  decline  of  the  mean 
quarterly  demand,  for  demand  scenarios  with  a  high  mean 
demand,  the  demand  decreased  from  a  mean  of  2  0  units  per 
quarter  to  a  mean  of  2  units  per  quarter.  The  mean  quarterly 
demand  for  demand  scenarios  with  low  demand  decreased  from  a 
mean  of  2.0  units  per  quarter  to  a  mean  of  0.2  units  per 
quarter.  The  comparison  of  model  performance  was  done  for 
all  combinations  of  the  demand  scenarios,  models,  and  decline 
patterns . 

D.   PERFORMANCE  COMPARISONS 

The  concept  behind  the  performance  comparisons  is  to 
provide  Navy  inventory  modelers  with  some  quantitative  data 
that  will  help  them  select  the  most  suitable  model  to  use  in 
a  given  situation.  The  use  of  total  cost  and  ACWT  as  the  MOEs 
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was  motivated  by  two  factors.  The  first  was  Heyvaert  and 
Hart's  use  of  cost  and  customer  satisfaction  in  the 
development  of  their  model  [Ref.  9],  which  in  essence  asserts 
that  when  evaluating  a  model  total  cost  is  not  the  only 
evaluation  criteria  to  consider.  Modelers  should  also 
consider  how  a  model  satisfies  customer  requirements.  The 
second  was  the  fact  that  total  cost  and  ACWT  are  generally  of 
primary  concern  to  the  managers  at  the  Navy's  inventory 
control  points  when  they  make  inventory  policy  decisions. 

The  total  cost  MOE  (Equations  3.1  &  3.2)  is  based  on  the 
Navy's  UICP  model  total  cost  objective  function  [Ref.  19 :p.  3- 
A-4]  .  Total  cost  is  discounted  to  current  year  dollars  and  is 
equal  to  the  sum  of  material  cost,  administrative  ordering 
cost,  inventory  holding  cost,  shortage  cost  and  salvage 
revenue  which  accrue  over  a  simulation  period.  Costs  were 
discounted  because  of  the  length  of  time  (simulation  period) 
over  which  the  analysis  was  performed.  Additionally,  costs 
were  discounted  to  evaluate  the  effect,  over  time,  the  models' 
varying  disposal  decisions  had  on  total  cost. 


TC 


W  =tA^^+c^+Z\^)+T^-D^p)F 


3.1 


F  =  e   4 
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Where 


TC(D)  =  total  discounted  cost  for  one  replication  of 

a  simulation  given  D  units  disposed  during 

the  simulation  period. 
F     =  discount  factor. 

Qk     =  number  of  units  ordered  during  quarter  k. 
P     =  unit  price. 
A     =  administrative  order  cost . 
Ck     =  number  of  orders  placed  during  quarter  k. 
Ej     =  inventory  on  hand  at  the  end  of  week  j . 
H     =  holding  cost  fraction  ($/unit-yr). 
Tk     =  time  Weighted  Units  Short  (TWUS)  for  quarter 

k,  see  Equation  3.4. 
S     =  shortage  cost  ($/unit-yr). 

Dk    =  number  of  units  disposed  of  during  quarter  k. 
R     =  salvage  rate  (a  fraction  of  P) . 
i     =  discount  rate, 
q     =  number  of  quarters  simulated, 
j     =  summation  index  for  13  weeks  of  a  quarter, 
k     =  summation  index  for  the  number  of  quarters 

simulated. 


The  ACWT  measures  the  mean  time  required,  in  days,  for  the 
wholesale  supply  system  to  meet  customer  demands.  ACWT  for 
one  replication  of  a  simulation  equals  the  time  weighted  units 
short  (TWUS)  divided  by  the  total  demand  (D)  over  the 
simulation  period  (Equations  3.3  &  3.4).  The  simulation  ACWT 
was  equal  to  the  average  of  all  replication  ACWTs . 


ACWT=    ™™ 


3.4 

1^0 


TWUS  =   ]P  [  (JZDj-BODj)  xAR±] 


36 


Where 


n    =  number  of  backorders  (in  units)  for 

measurement  period. 
RDj   =  receipt  date  of  the  ith  backorder . 
BODi  =  date  the  irh  backorder  occurred. 
ARi   =  amount  of  ith backorder  (in  units)  filled  on 

RDi. 


The  actual  performance  comparisons  were  done  using  two 
methods.  One  method  is  the  paired  difference  t-test  and  the 
other  method  is  Multi-Attribute  Decision  Making  (MADM) . 

1.   Paired  Difference  t-Test 

Hypothesis  tests  based  on  a  paired  difference  t-test 
statistic  [Ref.  21 :p.  572]  were  conducted  on  the  results  of 
the  Constant  Demand  Analysis,  Declining  Demand  Analysis,  and 
Sensitivity  Analysis  simulations  to  determine  which  model (s) 
performed  better  than  all  others  in  each  MOE  category.  Given 
that  model  "X"  had  the  best  result  for  a  specific  MOE,  the 
null  hypothesis  was  that  the  corresponding  result,  for  every 
other  model  was  equal.  The  alternative  hypothesis  was  that 
the  corresponding  result,  for  every  other  model  was  not  equal 
to  the  result  for  model  "X." 

The  paired  difference  t-test  was  used  because  there 
was  dependence  between  the  MOE  results  of  the  models  for  each 
setting  simulated.  The  dependence  was  attributed  to  the  fact 
that  for  each  replication  of  a  simulation,  the  randomly 
generated  demand  streams  were  identical  for  all  the  models 
within  a  setting.  Further  discussion  of  the  relationship 
between  random  number  generation  and  the  dependency  of  results 
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is  contained  in  Chapter  IV. 

2.   Mult i -Attribute  Decision  Making  (MADM) 

In  order  to  compare  the  models  performance,  the 
decision  analysis  technique  known  as  Multi-Attribute  Decision 
Making  (MADM) ,  a  subset  of  the  decision  making  processes  known 
as  Multi  Criteria  Decision  Making  (MCDM) ,  was  used.  There  are 
four  characteristics  which  make  this  performance  comparison  a 
Multi-Criteria  Decision  Making  problem  [Ref.  22, p.  2].  First, 
there  are  multiple  attributes  (MOEs  of  total  cost  and  average 
customer  wait  time) .  Second,  there  is  conflict  among  the 
MOEs,  i.e.  the  higher  the  TC  (which  is  bad)  the  lower  the  ACWT 
(which  is  good)  .  Third,  the  MOEs  have  different  units  of 
measure  (TC  is  per  simulation  period  and  ACWT  is  in  terms  of 
days  per  requisition)  .  Fourth,  the  selection  of  the  best 
model  is  to  be  made  based  on  each  model's  level  of  achievement 
in  the  MOEs  of  TC  and  ACWT  [Ref.  22, p.  3].  The  primary 
feature  which  makes  the  model  selection  decision  a  MADM 
process  is  that  there  are  a  limited  number  of  predetermined 
alternatives  [Ref.  22, p.  3].  In  this  case  the  alternatives 
are  the  retention  models  being  analyzed.  By  using  the  MADM 
technique  a  final  decision  (model  selection)  can  be  made. 

The  Simple  Additive  Weighting  Method,  one  of  the  best 
known  and  widely  used  methods  of  MADM,  was  the  method  used  for 
this  thesis  [Ref.  22, p.  99-103].  To  determine  a  preferred 
model,  a  decision  matrix  must  be  constructed  that  includes  the 
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MOE  values  for  each  model.  Because  the  Simple  Additive 
Weighting  Method  requires  a  comparable  scale  for  all  elements 
in  the  decision  matrix,  a  comparable  scale  matrix  is  obtained 
using  Equation  3.7  to  convert  the  MOE  values  to  comparable 
units.  In  addition  to  the  comparable  scale  decision  matrix, 
a  set  of  importance  weights  are  assigned  to  the  MOEs,  w  = 
{wTr, wACWT}  .  It  should  be  noted  that  w  is  normalized  to  sum  to 
one.  The  weights  should  reflect  the  decision  makers  marginal 
worth  assessment  for  each  MOE.  A  total  score  (weighted 
average)  for  each  model  (AJ  and  the  most  preferred  model  (A*) 
can  be  determined  as  follows: 


A*  =  max  {AjVi  =  i,  .  .  .  ,m] 

2 


3.5 


3.6 


3.7 


■•ij 
A,  =  J3 

1  2 

r±j  =  min  {xi:f|Vi  =  1,  .  .  .  ,m}  /  x±j 


Where : 

m  =  the  number  of  models  being  analyzed. 

i   =  the  ith  model  of  the  m  models. 

j   =  the  MOEs  of  TC  (j=l)  and  ACWT  (j=2). 

Wj  =  the  importance  weight  for  the  jth  MOE. 

ri3  =  the  comparable  scale  value  for  the  jth  MOE  of 

the  ith  model . 

x^  =  the  jch  MOE  value  for  the  ith  model. 

Although  MOE  results  (xn)  are  transformed  onto  a 

comparable  scale  (rM)  by  Equation  3.7,  the  decision  makers 
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perspective  regarding  a  difference  of  0.2  between  two  model's 
ri2  for  the  attribute  of  ACWT  may  not  have  the  same 
significance  as  a  difference  of  0.2  between  the  same  model's 
ri;  for  the  attribute  of  TC .  For  example,  if  the  ACWT  xi2  is 
1.0  day  in  Model  1  and  0.8  days  in  Model  2  and  the  TC  xn  is 
$80,000.00  in  Model  1  and  $100,000.00  in  Model  2,  a  decision 
maker  would  probably  consider  the  change  in  the  TC  xus  to  be 
more  significant.  But  if  TC  and  ACWT  are  weighted  equally 
Model  1  and  Model  2  would  have  the  same  A1 .  The  key  to  making 
effective  use  of  MADM  techniques  is  selecting  proper  MOE 
weights.  Weights  should  be  chosen  to  reflect  the  relative 
significance  of  trade-offs  between  TC  and  ACWT. 

Because  the  selection  of  MOE  weights  is  somewhat 
subjective  and  could  vary  between  decision  makers,  three  sets 
of  weights  were  used  when  comparing  the  performance  of  the 
models  (see  Table  3).  The  use  of  three  sets  of  weights  will 
show  the  sensitivity  of  model  selection  to  MOE  weights.  The 
sensitivity  of  model  selection  to  changes  in  MOE  weighting 
should  also  identify  models  which  perform  better  with  respect 
to  total  cost  or  ACWT. 

TABLE  3 .   MADM  MOE  WEIGHT  SETS 


SET 

TC 

ACWT 

1 

0.75 

0.25 

2 

0.50 

0.50 

3 

0.25 

0.75 
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Due  to  the  subjective  nature  of  MOE  weight  selection 
and  the  difficulty  of  determining  the  relative  significance  of 
trade-offs  between  ACWT  and  TC  between  various  models,  the 
MADM  results  should  not  be  considered  a  solution  to  the 
problem.  For  this  thesis  the  results  were  used  to  help 
develop  criteria  for  selecting  a  model  based  on  demand 
scenario  and  the  decision  maker's  emphasis  on  the  MOEs  of  TC 
and  ACWT. 
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IV.    SIMULATION 
A.    SIMULATION  STRUCTURE 

A  discrete  event  Monte-Carlo  simulation  was  used  to  obtain 
statistical  estimates  of  the  values  of  the  measures  of 
effectiveness  used  in  the  thesis.  The  events  of  the 
simulation  occurred  on  a  quarterly  basis  and  were  defined  by 
the  activities  associated  with  the  UICP  demand  process. 

The  main  routine  of  the  simulation  was  representative  of 
the  actions  which  occur  in  the  Navy's  UICP  model  given  the 
quarterly  generated  demand  observations.  Execution  of  these 
actions  is  controlled  by  two  "for"  loops.  The  outer  "for" 
loop  controlled  the  number  of  replications  of  the  simulation 
to  be  run.  The  inner  "for"  loop  performed  the  functions  of  a 
simulation  clock  and  timing  routine,  where  each  increment  of 
the  inner  "for"  loop  represented  one  quarter.  The  major 
procedures  which  are  called  in  the  timing  routine  are:  Demand 
Observation  Generation,  Demand  Forecasting,  Inventory  Level 
Setting  (Levels) ,  and  Supply/Demand  Review  (SDR) .  A  complete 
copy  of  the  simulation  is  included  in  Appendix  D  (The  Pascal 
code  can  be  obtained  from  Navy  Ships  Parts  Control  Center, 
Code  046,  Mechanicsburg,  PA  17055-0788)  . 
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1.   Demand  Observation  Generation 

Demand  observations  for  the  number  of  quarters 
simulated,  for  each  replication  of  a  simulation,  are  generated 
using  an  appropriately  transformed  pseudo-random  number 
generator.  The  resulting  demand  stream  is  a  function  of  the 
probability  distribution  that  is  selected  (Normal  or  Poisson) , 
the  mean  quarterly  demand,  and  the  variance  of  demand.  The 
probability  distribution,  mean  quarterly  demand,  and  variance 
of  demand  are  specified  during  initialization  of  the 
simulation.  The  method  for  generating  a  unique  demand  stream 
for  each  replication  of  a  simulation  is  discussed  later  in 
this  section. 

The  algorithm  for  generating  demand  observations  with 
a  Poisson {X)      distribution  was  based  on  the  relationship 

between  the  Poisson  {X)     and  Exponential  (1 /A.)  distributions 

[Ref .  23:p.  503]  : 

1.  Let  a  =  e~\  b  =  1,  and  i  =  0. 

2.  Generate  Ui+1  ~  U(0,1)  and  replace  b  by  bUi+1. 
If  b  <  a,  return  X  -   i. 

Otherwise,  go  to  step  3. 

3 .  Replace  i  by  i  +  1  and  go  back  to  step  2 . 

The  algorithm  returns  X,  when  the  Z}=1  ( -log  (Ui)  )  is  less  than 

X    (equivalently,  when  U]  =  1   (UJ  <  e~x)  .   Because  the  -logdJJ's 

are  exponential,  they  can  be  interpreted  as  the  interarrival 
times  of  a  Poisson  process  having  rate  1.  Therefore,  X  =  X{X) 

is  a  Poisson  random  variate  equal  to  the  number  of  events  that 
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have  occurred  by  time  X. 

The  algorithm  for  generating  demand  observations  with 
a  Normal  distribution  was  based  on  the  "polar  method" 
[Ref .  23:p.  491] : 

1.  Generate  \JX   and  U,  as  IID  U(0,1), 
let  Vi  =  2Ui  -  1   for  Vj  and  V2, 
and  let  W  =  Va2  +  V22 . 

2.  If  W  >  1,  go  back  to  step  1. 
Otherwise,  let  Y  =  [ ( -21n (W) ) /W] 1/2, 
Xl    =   VjY  and  X2  =  V2Y. 

Then  Xj  and  X2  are  IID  N(0,1)  random  variates. 
The  Uniform  (U(0,D)  random  number  generator  used  in 

the  Poisson  and  Normal  random  variate  algorithms  is  a  prime 

modulus  multiplicative  linear  congruential  generator  Z[i]  = 

(630360016  *  Z[i-1])   (mod  2147483647),  based  on  Marse  & 

Robert's  portable  FORTRAN  random  number  generator  UNIRAN  [Ref. 

23  :p.  447].   The  simulation  has  the  capability  to  produce 

20,000  unique  seeds  for  the  random  number  generator  based  on 

the  NXSEED  function,  also  from  Marse  &  Roberts  [Ref.  23  :p. 

456] .  Using  the  NXSEED  function,  a  unique  demand  streams  for 

each  replication  of  a  simulation  is  generated  by  reseeding  the 

random  number  generator  with  a  new  seed  prior  to  generating 

the  next  replication  demand  stream.   A  further  discussion  of 

seed  selection  and  unique  demand  stream  generation  is 

contained  in  Section  IV. B. 2. 

Because  the  internal  execution  of  the  Supply/Demand 

Review  procedure  is  on  a  weekly  basis,  each  quarterly  random 
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demand  observation  is  subdivided  into  a  13  week  demand  stream 
as  follows: 

1.  For  i  =  1  to  13,  the  demand  observation  for 
week(i)  =  0. 

2.  For  i  =  1  to  current  quarter's  demand  observation 

a.  Generate  a  random  uniform  integer (X)  from  1  to 

13. 

b.  increment  the  demand  observation  for  week(X) 
by  one. 

This  routine  randomly  disperses  one  quarters  worth  of  demand 
throughout  the  13  weeks  of  a  quarter. 

An  option  at  simulation  initialization  is  to  include 
one  to  five  trend  periods  and/or  one  to  five  step  changes  in 
mean  quarterly  demand  (D[t],  where  t  equals  a  specific 
quarter) .  The  trend  function  follows  an  exponential  growth 
pattern  of  the  form  [Ref.  24]: 

D[t]    =  MQ   *  (1+A*t(0)s)  4.1 

Where: 

M0    =  initial  Trend  Mean,  the  mean  quarterly  demand 
at  the  beginning  quarter  of  a  trend  period. 

A    =  trend  coefficient. 

t(0)  =  at  the  beginning  of  each  trend  period  this 

variable  is  reset  to  one  and  incremented  by  one 
at  each  quarter  during  a  trend  period. 

B    =  trend  power  function. 

The  number  of  trend  periods,  the  quarters  in  which  a  trend 
starts  and  stops,  and  the  parameters  A  and  B  for  each  trend 
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period  are  specified  during  initialization  of  the  simulation. 
The  step  function  applies  a  step  multiplier  (any  non-negative 
number)  to  D[t-1]  to  determine  D[t]  [Ref .  24] .  The  number  of 
steps,  the  quarter  in  which  the  step  occurs  (D[t])  and  the 
step  multiplier  are  specified  during  initialization  of  the 
simulation. 

2.   Forecasting  and  Inventory  Levels  Setting 

This  part  of  the  simulation  was  written  to  emulate,  as 
closely  as  possible,  the  forecasting  and  cyclic  levels 
application  (D01)  of  the  UICP  model. 

a .  Forecasting 

NAVSUP  Publication  553  [Ref.  19:Chap.  3]  contains 
general  background  information  on  the  forecasting  application 
in  the  D01  application.  Single  exponential  smoothing  or  a 
moving  average  is  used  to  forecast  mean  quarterly  demand, 
depending  on  the  results  of  step  and  trend  tests.  Single 
exponential  smoothing  or  a  power  rule  is  used  to  forecast  Mean 
absolute  deviation  of  demand  (MAD) ,  depending  on  the  results 
of  step  and  trend  tests.  A  smoothing  constant  of  0.01  was 
used  for  exponential  smoothing  in  the  simulation. 

Prior  to  actual  computation  of  the  next  quarterly 
demand  forecast,  the  most  recent  quarterly  demand  observation 
is  examined  by  two  processes:  "step"  filtering  [Ref.  19:Chap. 
3];  and  the  Kendall  trend  detection  test  [Ref.  25].  These 
tests  are  used  to  determine  if  there  has  been  a  change  in  mean 
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quarterly  demand  that  is  significant  enough  to  warrant 
discarding  most  of  the  historical  demand  data  and  to  recompute 
the  forecast  using  only  recent  data.  When  the  process  is  "out 
of  filter"  or  a  trend  is  detected  a  four  quarter  moving 
average  is  used  to  compute  the  next  forecasted  mean  quarterly 
demand.  The  MAD  is  then  forecasted  using  a  power  rule  [Ref. 
26]  . 

Jb.  Levels   Computation 

NAVSUP  Publication  553  [Ref.  19:Chap.  3]  contains 
a  description  of  the  Levels  computation  application  in  the 
D01.  The  purpose  of  this  part  of  the  software  is  to  compute, 
for  a  given  Navy  managed  item,  the  economic  order  quantity  and 
reorder  point  for  the  next  quarter.  The  UICP  calculations  for 
inventory  levels  were  developed  within  the  guidelines  of  DOD 
Instruction  4140.39.  Note  that  these  guidelines  follow  an 
approach  used  by  Hadley  and  Whitin  [Ref.  27].  The  optimal 
inventory  levels  are  determined  by  minimizing  an  average 
annual  variable  cost  equation  composed  of  ordering,  holding, 
and  shortage  costs.  The  level  setting  calculations  in  the 
simulation  are  based  on  FMSO  Level  Setting  Model  Functional 
Description  PD82  [Ref.  28]  which  was  written  by  the  Navy  Fleet 
Material  Support  Office.  Executable  code  obtained  from  the 
Navy  Ships  Parts  Control  Center  (Code  046)  was  used  in  the 
simulation  to  perform  the  actual  level  setting  calculations. 
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3.   Supply/ Demand  Review  (SDR) 

The  SDR  routine  of  the  simulation  was  coded  to 
replicate  the  UICP  model  when  processing  material  receipts, 
issues,  and  orders.  In  addition,  a  material  disposal  function 
was  incorporated  in  the  routine.  The  disposal  function  occurs 
bi-annually  in  conjunction  with  inventory  stratification  and 
executes  economic  retention  decisions.     The  events  in  the 
SDR  routine  are  driven  by  the  output   from  the  Demand 
Observation  Generation,  Forecasting,  and  Levels  routines  for 
the  respective  quarter.  The  SDR  routine  is  called  once  a  week 
during  each  quarter  and  the  events  occur  in  the  following 
sequence:  material  disposal  (this  disposal  routine  is  used 
only  during  the  first  week  of  the  first  and  third  quarters  of 
each  year),  receiving,  issuing,  and  ordering.   In  addition, 
the  SDR  routine  calculates  and  records  data  for  TWUS,  ACWT, 
and  total  cost. 

a.  Material   Disposals 

A  semi-annual  inventory  stratification  was 
performed  to  determine  the  "retention  level"  and  to  calculate 
the  amount  of  "potential  excess."  The  economic  retention 
model  specified  during  initialization  of  the  simulation  is 
used  to  perform  these  calculations.  The  models  available  in 
the  simulation  are: 

-  UICP 

-  Optimal 

-  Traditional  (TRAD) 

-  Net  Benefit  (NB) 
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-  Net  Benefit-Mod  (NB-MOD) 

-  Net  Benefit-NPV  (NB-NPV) 

For  simulation  purposes  all  "potential  excess"  is 
disposed  of  immediately  and  revenue  from  disposal  is 
determined  by  multiplying  the  unit  price  of  the  item  by  the 
quantity  disposed  and  the  salvage  rate  (salvage  rate  is 
specified  by  the  user  during  initialization  of  the 
simulation) .  Total  cost  for  the  simulation  period  is  reduced 
by  the  discounted  revenue  recognized  from  disposal. 

b.  Material   Receipt 

Outstanding  reorders  are  maintained  in  a  "priority 
heap"  [Ref .  29 :p.  149]  in  order  of  scheduled  receipt  date.  If 
an  outstanding  reorder  is  due  in  the  current  week,  the  reorder 
is  removed  from  the  outstanding  reorder  heap.  The  receipt 
quantity  is  applied  to  the  outstanding  backorders  heap. 
Backorders  are  removed  from  the  heap  and  filled  until  all  the 
backorders  were  filled  or  the  receipt  quantity  is  exhausted. 
If  all  backorders  are  filled,  the  remaining  receipt  quantity 
is  added  to  the  current  on-hand  inventory. 

c.  Material    Issue 

If  a  demand  is  generated  in  the  Demand  Observation 
Generation  routine  for  the  current  week  and  the  current  on- 
hand  inventory  is  sufficient  to  meet  the  requirement,  then 
material  is  issued  and  the  on-hand  inventory  is  decreased  by 
the  amount  of  the  demand.  When  the  requirement  is  greater 
than  current  on  hand  inventory,  a  backorder  is  created  for  the 
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amount  of  the  requirement  in  excess  of  current  on-hand 
inventory.   The  backorder  is  inserted  into  the  outstanding 
backorder  heap,  a  FIFO  priority  heap  [Ref.  29:p.  149],  based 
on  the  date  at  which  the  backorder  occurred. 
d.      Material    Order 

At  the  end  of  each  week  the  inventory  position 
(IP)  is  examined  to  determine  if  a  reorder  is  necessary  [Ref. 
19:p.  3. 24/25]. [  If  IP  is  less  than  or  equal  to  the  reorder 
point  (RO)  then  a  reorder  is  placed.  An  RO  is  calculated  for 
each  quarter  in  the  Levels  routine  prior  to  making  the  weekly 
calls  to  the  SDR  routine.   The  reorder  quantity  (ROQ)  equals: 

ROQ  =  EOQ+RO+BO-OH-OS  4  2 

Where : 

IP   =  OH  +  OS  -  BO 

EOQ  =  economic  order  quantity  for  current  quarter, 

based  on  output  from  the  Levels  routine. 
RO  =  reorder  point . 
BO  =  total  backorders  outstanding  at  the  end  of  the 

current  week. 
OH  =  total  on  hand  inventory  at  the  end  of  the 

current  week. 
OS   =  total  quantity  of  material  on  order  at  the  end 

of  the  current  week. 

A  random  procurement  leadtime  is  generated  at  the 
time  of  reorder  and  a  receipt  date  equal  to  the  current  date 
plus  this  generated  procurement  leadtime  is  assigned  to  the 


^DR  is  currently  run  somewhat  less  frequently  and  less 
regularly  than  once  a  week  at  the  Navy  Inventory  Control 
Points . 
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reorder.  The  reorder  is  then  inserted  into  the  outstanding 
reorder  heap.  The  random  procurement  leadtime  is  based  on  a 
normal  distribution  with  mean  of  eight  quarters  and  variance 
of  64  quarters.  The  actual  procurement  leadtime  used  is 
constrained  to  a  maximum  of  14  quarters  and  a  minimum  of  two 
quarters . 

B.    SIMULATION  SET-UP 

1.   System  Parameters 

The  UICP  model  system  parameters  and  their  default 
settings  are  displayed  in  Table  4.  The  default  values  are  the 
same  as  those  used  in  the  UICP,  Computation  and  Research 
Evaluation  System  (CARES-D56)  [Ref.  30]. l  Although  any  of 
these  parameters  may  be  changed  during  initialization  of  the 
simulation,  the  default  CARES  values  were  used  for  Total  Cost 
Analysis,  Constant  Demand  Analysis,  and  Declining  Demand 
Analysis  simulations.  The  capability  to  change  these  default 
values  was  used  in  the  Sensitivity  Analysis  simulations. 

TABLE  4 .   SYSTEM  PARAMETERS 

Probability  Break  Point:  0 

Min  Risk(Prob  of  a  stockout):  0.10 

Max  Risk(Prob  of  a  stockout):  0.35 

Shelf  Life  Code:  0 

Order  Cost  Rate:  400. 00: $/order 

Obsolescence  Rate:  0.12: $/unit-yr 

Unit  Price:  2500. 00: $/unit 


^ARES  is  an  application  designed  to  provide  ICP 
management  with  a  tool  to  analyze  and  evaluate  alternative 
inventory  management  policies  prior  to  their  implementation  in 
UICP. 
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Time  Preference  Rate:  0.07:%/yr 

Salvage  Rate:  0 . 02:%/unit  price 

Storage  Rate:  0.  01 : $/unit-yr 

Procurement  LeadTime:  8. 00: qtrs 

Shortage  Cost:  1000.  00: $/unit-yr 

Military  Essential:  0.50 

Requisition  Size:  1 :unit /requisition 

2 .   Random  Number  Seeds 

As  discussed  in  Chapter  IV. A. 1  there  is  an  array  of 
20,000  seeds  available  to  seed  the  random  number  generator  for 
each  replication  of  a  simulation.  During  the  initialization 
of  the  simulation  any  series  of  seeds  in  the  array  equal  to 
the  number  of  replications  can  be  chosen.  For  example,  in  a 
100  replication  simulation,  the  series  of  seeds  from  1  to  100, 
900  to  999  or  10001  to  10100  can  be  specified,  as  long  as  the 
starting  seed  position  in  the  array  is  less  than  or  equal  to 
20,000  minus  the  number  of  replications  for  the  simulation. 
The  purpose  of  this  feature  is  to  allow  for  generation  of 
dependent  or  independent  output  samples  from  two  or  more 
simulations.  The  importance  of  this  feature  is  that  it 
affects  the  type  of  statistical  test  which  may  be  performed 
when  comparing  the  output  from  two  or  more  simulations. 

For  this  thesis,  dependent  output  samples  were  created 
for  all  simulations  run  within  each  setting.  This  was 
accomplished  by  specifying  the  same  series  of  seeds  for  demand 
stream  generation  for  each  simulation  in  a  setting.  Using 
dependent  demand  streams  for  performance  comparisons  allows 
for  the  comparison  of  the  models  in  a  similar  demand 
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environment.  However,  the  analysis  must  be  done  using  a 
statistical  test  for  dependent  samples  such  as  the  paired 
difference  t-test.  If  independent  samples  are  desired,  each 
simulation  would  have  to  be  run  using  a  unique  series  of 
seeds . 

3.  Number  of  Replications 

In  order  to  obtain  reasonable  precision  in  the 
confidence  intervals  for  the  estimates  of  ACWT  and  total  cost, 
the  absolute  error  method  [Ref.  23  :p.  536]  was  used  to 
determine  the  total  number  of  replications  to  run.  By  using 
the  absolute  error  method  with  a  simulation  run  consisting  of 
400  replications,  absolute  errors  were  obtained  of  no  more 
than  20%  of  the  true  mean  ACWT  and  no  more  than  7.5%  of  the 
true  mean  total  cost  with  a  probability  of  0.95.  Based  on 
these  results,  500  replications  were  used  in  all  simulations. 
This  yielded  an  absolute  error  of  no  more  than  15%  for  the 
true  mean  ACWT  and  no  more  than  5%  for  the  true  mean  Total 
Cost  with  a  probability  of  0.95.  Although  the  error  for  ACWT 
may  appear  rather  high,  the  error,  when  measured  in  days,  was 
typically  less  than  two  days. 

4.  Initial  Conditions  Warm-up  Period  for  Declining  Demand 
Analysis 

Inherent  in  the  simulation  of  a  stochastic  process  is 
the  initial  transient  or  the  start-up  problem.  The  difficulty 
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is  in  determining  the  warm-up  period  for  a  model.  The  warm-up 
period  covers  the  time  it  takes  for  the  means  of  the  random 
variables  being  measured  in  a  simulation  to  converge  to  their 
steady  state  values. 

We  employed  the  "graphical  procedure"  that  is  due  to 
Welch  [Ref.  23:p.544]  to  identify  when  the  simulation 
approached  steady  state.  The  Welch  procedure  is  applied  to 
each  demand  scenario.  The  Welch  graphs  (Appendix  E,  Graphs  7 
-  12)  were  generated  from  data  that  was  obtained  from  a  100 
replication,  80  quarter  simulation.  The  steady  state  random 
variable  shown  in  the  graphs  is  the  investment  (measured  in 
units)  in  a  given  quarter,  averaged  over  all  replications. 
Investment  in  this  case  is  the  number  of  units  on-hand  plus 
the  number  of  units  in  outstanding  orders  at  the  end  of  a 
quarter.  Investment  was  chosen  because  it  most  accurately 
reflects  the  balance  between  material  issuing  and  ordering  and 
when  the  inventory  system  has  reached  equilibrium  or  steady 
state.  Based  on  Graphs  7  -  12  in  Appendix  E,  it  was 
determined  that  the  simulated  model  reaches  steady  state  with 
respect  to  investment  by  quarter  30  at  the  latest  for  all 
demand  scenarios. 

The  amount  of  time  the  random  variable's  mean  remains 
in  a  transient  state  is  affected  by  the  initial  conditions  of 
the  simulation.  In  an  effort  to  reduce  the  warm-up  period, 
the  following  logic  was  used  to  determine  the  initial  on  hand 
quantity,  and  to  schedule  receipt  dates  and  quantities  for 
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reorders  outstanding  at  the  start  of  the  simulation.  The 
initial  quantity  of  on  hand  inventory  is  set  equal  to  EOQ 
divided  by  2  plus  safety  stock  [Ref .  17 :p.  275] .  Safety  stock 
is  set  equal  to  the  reorder  point  minus  the  forecasted 
leadtime  demand  [Ref.  19:Chap.  3].  The  number  of  reorders 
outstanding  at  the  start  of  the  simulation  is  set  equal  to  the 
expected  number  of  reorders  outstanding  at  any  instant  of  time 
for  the  deterministic  setting.  This  number  equals  the 
procurement  leadtime  divided  by  a  reorder  interval  (using  a 
0.5  rounding  rule),  where  a  reorder  interval  equals  the  EOQ 
divided  by  the  forecasted  quarterly  demand  [Ref  31:p.  93]. 
For  all  simulations  the  EOQ,  reorder  point,  and  forecast  for 
quarter  one  is  used  to  calculate  these  initial  conditions. 
The  receipt  dates  of  the  reorders  outstanding  are  uniformly 
distributed  from  simulation  time  zero  to  simulation  time  zero 
plus  one  procurement  leadtime,  and  the  quantity  of  each 
reorder  outstanding  was  set  equal  to  the  EOQ  for  quarter  one. 
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V.    SIMULATION  RESULTS 

A.  OVERVIEW 

This  chapter  will  discuss  the  simulation  results  from  the 
Total  Cost,  Constant  Demand  and  Declining  Demand  Analysis. 
Total  cost  curves  generated  from  the  Total  Cost  Analysis  are 
presented  in  Appendix  E,  Graphs  13-24.  The  simulation  results 
and  MADM  analysis  from  the  Constant  Demand  Analysis  and  the 
Declining  Demand  Analysis  are  presented  in  Appendices  A  and  B, 
respectively.  The  remainder  of  this  chapter  will  discuss  the 
general  results  of  each  Analysis  based  on  the  goals  of  the 
Analysis.  In  addition,  specific  observations  which  deserve 
further  analysis  will  be  examined. 

B.  TOTAL  COST  ANALYSIS 

The  goal  of  this  particular  analysis  was  to  determine  if 
a  minimum  Total  Cost  (TC)  associated  with  a  single  retention 
level  (  symbolized  by  t0  or  RL  )  existed  in  a  stochastic 
demand  environment  as  Tersine  showed  for  the  deterministic 
case  [Ref.  14].  Assuming  a  minimum  TC  exists,  an  optimal 
retention  level  (t0)  for  each  demand  scenario  in  the  Total 
Cost  Analysis  setting  was  determined  that  minimizes  the 
respective  TC . 

The  results  of  the  Total  Cost  Analysis  simulations  show 
that  the  TC  curve  for  each  demand  scenario  simulated  is  a 
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parabola  (Appendix  E,  Graphs  13  to  24).  While  the  high  unit 
price  demand  scenario  TC  curves  had  an  easily  identifiable 
minimum  point,  the  low  unit  price  demand  scenario  TC  curves 
tended  to  be  flat  in  the  vicinity  of  the  minimum.  This 
indicates  that  for  the  low  unit  price  settings  there  may  be  a 
range  of  retention  levels  that  yield  statistically  equivalent 
minimum  total  costs.  In  addition,  finding  the  best  t0  for  the 
low  unit  price  settings  may  involve  other  MOEs  such  as  ACWT. 
Although  all  the  total  cost  curves  for  the  demand 
scenarios  simulated  are  parabolas,  an  interesting 
characteristic  in  the  TC  curve  for  the  LDLP  demand  scenario 
can  be  observed  (Appendix  E,  Graphs  18  and  24) .  There  is  a 
"step"  in  the  TC  curve  and  specifically  in  the  Total  Order 
Cost  curve  at  a  retention  level  of  approximately  3.5  years 
annual  demand.  The  initial  inventory  position  (IP)  at  time 
zero  after  disposal  of  excess  inventory,  for  a  retention  level 
less  than  3.5  years,  was  below  the  time  zero  reorde-  point 
(RO)  (the  RO  is  depicted  by  the  vertical  line  in  G  is  18 
and  24)  .  This  caused  an  additional  reorder  to  be  placed 
during  the  simulation  period  for  all  retention  levels  less 
than  3.5  years.  The  "step"  down  in  the  total  order  cost  curve 
occurred  after  the  retention  level  exceeded  3.5  years  because 
an  additional  reorder  was  not  placed  at  time  zero.  The 
magnitude  of  the  "step"  down  was  due  to  the  high 
administrative  order  cost  ($850/order)  in  relation  to  the  low 
unit  price  ($20/unit)  and  low  mean  quarterly  demand  (2  units/qtr)  . 
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Since  the  TC  curves  were  parabolas,  the  next  step  in  the 
Total  Cost  Analysis  was  to  determine  the  respective  optimal 
retention  level  (t0)  that  minimized  TC  for  each  demand 
scenario  in  the  Total  Cost  Analysis  settings.  For  this 
analysis  the  optimal  retention  level  was  defined  as  the 
arithmetic  mean  of  the  retention  levels  which  resulted  in  the 
minimum  total  cost  for  each  of  the  500  replications  of  the 
respective  demand  scenario  simulation.  The  optimal  inventory 
level  t0,  was  calculated  as  follows: 


t    =   -^ 


Ec' 


5.1 


n 


Where: 

i  =  index  for  a  replication  of  a  simulation, 
n  =  total  number  of  replications  of  a  simulation. 
tj  =  retention  level  which  resulted  in  the  minimum  TC 
for  a  specific  replication  of  a  simulation. 

The  t0  values  are  presented  in  Table  5  under  Alternative  A. 

The  t0  values  represent  years  worth  of  demand  at  the 

forecasted  annual  demand  rate. 

In  order  to  test  the  sensitivity  of  t0  to  different 

initial  inventory  amounts,  the  simulations  for  the  Total  Cost 

Analysis  settings  were  rerun  with  an  initial  inventory  of  75 

years  worth  of  annual  demand.    The  results  of  these 

simulations  are  shown  in  Table  5  under  Alternative  B.   The 

results  presented  in  Table  5  indicate  that  t0  is  very  robust 

with  respect  to  initial  inventory. 
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TABLE   5 


TOTAL   COST   ANALYSIS   OPTIMAL   RETENTION   LEVELS 


Demand 
Stream 

A  L  T  E  R  N 

A  T  I  V  E 

A 

B 

t( 

C.I. 

t; 

C.I. 

HDHVHP 

6.7 

+  0.35 

6.8 

±0.62 

HDLVHP 

5.6 

±0.12 

5.5 

±0.23 

HDHVLP 

10.6 

±0.61 

10.1 

±1.10 

HDLVLP 

8.4 

±0.25 

8.3 

±0.48 

LDHP 

6.4 

±0.25 

6.3 

±0.50 

LDLP 

16.3 

±0.44 

15.8 

±0.88 

[C.I.  is  a  95%  confidence  interval  on  tc 

To  summarize,  the  initial  results  indicate  that  a  t0 
exists  for  each  demand  scenario  simulated,  and  the  value  of  t0 
varies  considerably  with  respect  to  unit  price,  mean  quarterly 
demand  and  variance  of  demand.  The  following  correlation 
between  t0  and  unit  price,  mean  quarterly  demand  and  variance 
of  demand  in  a  stochastic  environment  can  be  developed.  As 
unit  price  increases  t0  decreases,  as  mean  quarterly  demand 
increases  t0  decreases,  and  as  variance  of  demand  increases  t0 
increases . 

C.   CONSTANT  DEMAND  ANALYSIS 

The  goal  of  this  analysis  was  to  observe  the  performance 
of  the  various  proposed  models  under  the  same  conditions  used 
in  the  Total  Cost  Analysis.  We  hoped  to  draw  some  conclusions 
about  the  performance  of  these  models  in  a  stochastic 
environment  by  comparing  the  performance  of  the  models  to  the 
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appropriate  optimal  retention  levels  (t0)  obtained  from  the 
Total  Cost  Analysis. 

Simulation  and  performance  comparison  results  are 
presented  in  Appendix  A.  ACWT  and  TC  values  that  appear  in 
bold  print  in  Appendix  A  indicate  these  values  are 
statistically  equal  to  or  less  than  the  respective  optimal 
value,  based  on  the  paired  difference  t-tests  conducted  in  the 
performance  comparison. 

Table  6  summarizes  the  results  of  the  performance 
comparison.  The  table  is  designed  to  be  a  decision  tool  to 
assist  in  determining  which  models  might  be  appropriate  for  a 
specific  demand  scenario  with  respect  to  the  relative  weight 
that  management  places  on  the  MOEs  of  TC  and  ACWT.  Entries  in 
Table  6  indicate  which  models  were  the  best  performers  for  a 
specific  combination  of  demand  scenario  and  MOE  weighting. 


TABLE  6 .    CONSTANT  DEMAND  ANALYSIS  SUMMARY 

AND  DECISION  TABLE 

RESULTS 

DEMAND   SCENARIO 

MOE    WEIGHTING 

Mean 
Demand 

Demand 
Variance 

Unit 
Price 

Total 

Cost (TC) 

Mostly 
TC 

Equal 
TC/ACWT 

Mostly 
ACWT 

ACWT 

High 

High 

High 

3 

3,5 

1,3,5 

1 

1 

Low 

1 

1 

1 

1 

1 

Low 

High 

2 

2-4 

1,3,5 

1 

1 

Low 

3,5 

3,5 

3,5 

1-5 

0-5 

Low 

High 

3 

2,3 

1-5 

1 

1 

Low 

4 

4 

1-4 

2,3 

3 

Legend:  1  =  TRAD,  2  =  NB,  3  =  NB-MOD,  4  =  NB-NPV,  5  =  UICP 
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While  no  single  model's  RL  consistently  matched  the 
optimal  retention  level,  the  NB-MOD  model  performed  the  best 
across  all  demand  scenarios.  Additionally,  there  was 
typically  at  least  one  model's  RL  which  matched  the  optimal 
for  each  demand  scenario. 

The  RL  for  the  TRAD  model  remained  constant  for  all  demand 
scenarios  because  mean  quarterly  demand,  unit  price,  and 
demand  variance  are  not  parameters  in  the  calculation  of  the 
TRAD  model's  RL .  The  RLs  for  the  "net  benefit"  models  as  a 
group  behaved  the  same  as  the  optimal  with  respect  to  changes 
in  mean  quarterly  demand  and  unit  price  as  discussed  in  the 
Total  Cost  Analysis  results.  Changes  in  demand  variance  had 
little  effect  on  the  RLs  of  the  "net  benefit"  models,  most 
likely  because  demand  was  assumed  to  be  deterministic  in  the 
derivation  of  the  basic  net  benefit  equation. 

The  following  general  observations  can  be  made  from  the 
performance  comparison  results.  Based  solely  on  TC,  there  was 
usually  one  model  which  obtained  the  true  optimal  solution. 
The  only  exception  was  for  the  HDLVHP  demand  scenario  in  which 
no  model  had  a  TC  which  was  statistically  equal  to  the  true 
optimal  solution.  This  can  most  likely  be  explained  by  the 
fact  that  the  total  cost  curve  for  the  HDLVHP  demand  scenario 
(Appendix  E,  Graph  14)  has  the  most  distinct  minimum  point  on 
its  curve  as  compared  to  the  other  demand  scenario  total  cost 
curves.  This  argument  is  also  supported  by  the  fact  that  the 
confidence  interval  about  the  optimal  retention  level  for  the 
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HDLVHP  demand  scenario  is  the  smaller  than  the  confidence 
intervals  of  the  other  demand  scenario  optimal  retention 
levels  (Chapter  V,  Table  5)  . 

When  taking  into  account  ACWT  and  TC  there  were  generally 
several  models  which  performed  as  well  as  or  better  than  the 
optimal,  with  the  NB-MOD  model  being  the  most  consistent  top 
performer.  The  TRAD  model  consistently  had  a  higher  RL  and 
was  the  best  performer  with  respect  to  ACWT  for  all  demand 
scenarios  except  HDLVLP  and  LDLP.  For  the  latter  two  demand 
scenarios  the  difference  between  all  the  models'  respective 
ACWTs '  was  insignificant. 

It  is  interesting  to  note  that  under  the  HDHVLP  and  LDLP 
demand  scenarios  the  TRAD  and  NB-NPV  models  had  lower  average 
total  costs  than  the  respective  optimal  solution.  The  lower 
TC  for  the  two  models  could  be  expected  due  to  the  fact  that 
both  the  HDHVLP  and  the  LDLP  TC  curves  (Appendix  E,  Graphs  15 
and  18)  from  the  Total  Cost  Analysis  were  flat  in  the  vicinity 
of  the  minimum  TC  point  on  the  curve.  After  further  analysis 
it  was  determined  that  the  calculated  optimal  retention  level 
for  the  HDHVLP  and  the  LDLP  demand  scenarios  may  vary 
depending  on  how  optimality  was  defined  in  the  Total  Cost 
Analysis.  In  light  of  the  HDHVLP  and  LDLP  results  an 
alternative  definition  of  the  optimal  retention  quantity  was 
developed. 

In  the  Total  Cost  Analysis  the  optimal  retention  level,  t0 
for  each  demand  scenario  in  Chapter  V  Table  5  (Alternate  A) 
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was  defined  as  the  arithmetic  mean  of  the  retention  levels 
which  resulted  in  the  minimum  total  cost  for  each  of  the  500 
replications  of  the  respective  demand  scenario  simulation. 
The  revised  optimal  retention  level  (t*)  was  defined  as  the 
retention  level  associated  with  the  arithmetic  mean  of  the 
minimum  total  costs  of  all  the  replications  of  the  respective 
demand  scenario  simulation.  The  revised  optimal  retention 
level  t*  was  calculated  as  follows: 


Ecti 


5.2 


n 


t*  =  argmin  ~C  5.3 

ter 


Where 


Cr  =  the  average  TC  for  a  specific  retention  level 
across  all  replications  of  a  simulation. 

cti  -   the  TC  for  a  specific  retention  level  and  a 
specific  replication  of  a  simulation. 

t   =  a  specific  retention  level  simulated. 

T  =  the  set  of  all  retention  levels  simulated  (0.0, 
0.5,1.0,1.5, m) 

m   =  initial  on  hand  inventory  prior  to  disposal. 

i  -   index  for  a  replication  of  a  simulation. 

n   =  total  number  of  replications  of  a  simulation. 


Table  7  presents  the  t0  and  t*  values  for  all  demand 
streams.  The  values  for  t*  tended  to  be  greater  for  the  HDHVLP 
and  LDLP  demand  scenario,  and  were  also  closer  to  the 
respective  retention  levels  obtained  from  the  TRAD  and  NB-NPV 
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models  than  to  the  respective  values  for  t0.  For  the  HDHVLP 
demand  scenario  this  quantity  was  13  years  and  for  the  LDLP 
demand  scenario  this  quantity  was  17  years.  It  should  be  noted 
that  the  differences  between  the  respective  t*  for  the 
remaining  demand  scenarios  and  the  optimal  t0  were  not 
statistically  significant. 


TABLE  7 


OPTIMAL  RETENTION  LEVELS  CALCULATION  ANALYSIS 


Demand 
Stream 

A  L  T  E  R  N 

A  T  I  V  E 

t0 

t* 

to 

C.I. 

t* 

C.I. 

HDHVHP 

6.7 

±  0.35 

7.0 

+  2.0 

HDLVHP 

5.6 

+  0.12 

5.5 

+  0.5 

HDHVLP 

10.6 

±  0.61 

13.0 

+  3.0 

HDLVLP 

8.4 

+  0.25 

8.5 

±  1.5 

LDHP 

6.4 

+  0.25 

6.5 

+  1.0 

LDLP 

16.3 

±  0.44 

17.0 

±  1.0 

C.I.  is  a  95%  confidence  interval 


The  difference  between  t0  and  t*  for  the  HDHVLP  and  LDLP 
demand  scenarios  can  be  attributed  to  backorders  which 
occurred  when  the  Total  Cost  Analysis  optimal  quantity,  t0/ 
was  retained  and  which  did  not  occur  when  the  t*  quantity  was 
retained.  The  backorders  occurred  in  approximately  10%  to  15% 
of  the  replications  of  the  Constant  Demand  Analysis 
simulations  due  to  large  spikes  in  observed  demand  between 
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quarters  30  and  55.  However,  the  extra  stock  held  when  t*  was 
retained  was  sufficient  to  satisfy  this  increased  demand. 
Because  the  two  demand  scenarios  were  low  unit  price 
($20/unit)  scenarios,  the  high  shortage  cost  ($1500/unit  year 
of  shortage)  tended  to  dominate  TC .  Therefore  when  these 
backorders  occurred,  the  TC  for  the  tc  retention  level 
increased  by  120%  to  150%  and  was  significantly  higher  than 
the  TC  for  the  t*  retention  level.  This  tended  to  force  the 
simulation  average  minimum  TC  out  to  t*. 

It  should  be  noted  that  for  85%  to  90%  of  the  Constant 
Demand  Analysis  simulation  replications  the  t0  retention  level 
resulted  in  the  minimum  TC .  Additionally,  over  an  entire 
simulation  the  average  total  costs  for  the  HDHVLP  and  LDLP 
demand  scenarios  and  the  TRAD  and  NB-NPV  models,  respectively, 
were  statistically  equal  to  the  respective  average  optimal 
total  cost  based  on  the  t0  retention  level. 

In  summary,  it  is  difficult  to  conclude  whether  t0  or  t* 
better  defines  the  optimal  retention  quantity  for  the  HDHVLP 
and  LDLP  demand  scenarios.  Although  there  is  a  significant 
difference  between  t'  and  t*  for  the  HDHVLP  and  LDLP  demand 
scenarios,  the  average  total  costs  which  result  from  the  two 
retention  levels  are  statistically  equivalent. 

D.   DECLINING  DEMAND  ANALYSIS 

The  goal  of  this  analysis  was  to  compare  the  models  in  a 
scenario  that  involved  declining  mean  quarterly  demand.   For 
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this  analysis,  simulation  and  performance  comparison  results 
are  presented  in  Appendix  B.  ACWT  and  TC  values  that  appear 
in  bold  print  in  Appendix  B  indicate  the  values  which  were  the 
best  performers  from  among  the  five  models.  When  more  than 
one  value  is  in  bold  print  this  indicates  that  the  values  were 
statistically  equivalent  based  on  the  paired  difference  t- 
tests . 

The  values  for  TC  and  ACWT  shown  in  Appendix  B  were 
accumulated  over  quarters  30  through  66  in  the  respective 
Declining  Demand  Analysis  simulations.  Data  for  TC  and  ACWT 
was  originally  collected  for  the  full  66  quarters  of  each 
Declining  Demand  Analysis  simulation.  The  results  using  the 
full  66  quarters  of  data  were  significantly  affected  by  the  TC 
and  ACWT  data  collected  during  quarters  1  through  2  9  when  mean 
quarterly  demand  was  constant.  In  general,  the  results 
showed  that  the  performance  of  all  of  the  models  was 
statistically  equal  when  the  full  66  quarters  of  data  were 
used.  Therefore,  in  order  to  get  a  more  accurate  picture  of 
the  effect  each  model's  RL  had  on  the  its  TC  and  ACWT  during 
the  declining  demand  period,  data  for  the  performance 
comparison  was  collected  for  quarters  3  0  through  66  only. 

Table  8  summarizes  the  results  of  the  performance 
comparison.  The  table  is  designed  to  be  a  decision  tool  to 
assist  in  determining  which  models  might  be  appropriate  for  a 
specific  demand  scenario  with  respect  to  the  relative  weight 
management  places  on  the  MOEs  of  TC  and  ACWT.   Entries  in 
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Table  8  indicates  which  models  were  the  best  performers  for  a 
specific  combination  of  demand  scenario,  pattern  of  declining 
demand  and  MOE  weighting. 


TABLE  8 .   DECLINING  DEMAND  ANALYSIS  SUMMARY  RESULTS 

AND  DECISION  TABLE 


DEMAND  SCENARIO 

MOE  WEIGHTING 

Mean 

Demand 

Demand 
Variance 

Unit 
Price 

Decline 
Pattern 

Total 
Cost 

Mostly 
TC 

Equal 
TC/ACWT 

Mostly 
ACWT 

ACWT 

High 

High 

High 

f.tep 

4 

2,4 

2,4 

2-5 

1,5 

Convex 

4 

2,4 

2,4,5 

2,5 

1,  5 

Concave 

4 

2,4 

2-4 

3,4 

1,5 

Low 

Step 

2-4 

3 

3 

3 

3 

Convex 

3 

3 

3 

3 

3 

Concave 

2-4 

3 

3 

3 

3 

Low 

High 

Step 

4 

4 

4 

4 

1-5 

Convex 

4 

4 

4 

4 

1-5 

Concave 

4 

4 

4 

4 

1-5 

Low 

Step 

5 

5 

5 

5 

1-5 

Convex 

1,4 

1,4 

1,4 

1,4 

1-5 

Concave 

5 

5 

5 

5 

1-3,5 

Low 

High 

Step 

2-4 

1,3 

1,3 

1,3 

1,3 

Convex 

2,4 

2,3 

1-3 

1,3 

1 

Concave 

2,4 

2,3 

1-3 

1,3 

1 

Low 

Step 

2-4 

2-4 

2-4 

2-4 

1-4 

Convex 

1-4 

2-4 

2-4 

1-4 

1-4 

Concave 

4 

4 

4 

1-5      _-5 

Legend:  1  =  TRAD,  2  =  NB,  3  =  NB-MOD,  4  =  NB-NPV,  5  =  UICP 

The  following  general  observations  can  be  made  from  the 
results  of  the  performance  comparison.  No  one  model  dominated 
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across  all  demand  scenarios  based  on  TC  alone.  For  the 
"mostly  TC"  and  "mostly  ACWT"  categories  of  management 
emphasis,  the  NB-MOD  and  the  NB-NPV  models  were  consistently 
top  performers  regardless  of  demand  scenario  and  pattern  of 
declining  demand.  For  the  "only  TC"  category  of  management 
emphasis,  the  NB-NPV  model  was  consistently  a  top  performer 
regardless  of  demand  scenario  and  decline  pattern.  Similar  to 
the  correlation  seen  in  the  Total  Cost  Analysis  between  the 
changes  in  the  RL  and  changes  in  demand,  the  RLs  for  the  "net 
benefit"  models  increased  as  demand  decreased  during  the 
simulation's  period  of  declining  mean  quarterly  demand.  The 
increases  were  most  apparent  for  the  low  unit  price  scenarios. 
Because  the  RLs  for  the  "Net  Benefit"  models  were  changing 
throughout  the  Declining  Demand  Analysis  simulations,  the 
retention  levels  shown  in  the  Declining  Demand  Analysis 
results  (Appendix  B)  represent  the  average  RL  over  quarters  3  0 
through  66.  Graphical  illustrations  of  the  change  in  the  RLs 
for  all  of  the  demand  scenarios  and  patterns  of  declining 
demand  are  shown  in  Appendix  E,  Graphs  25  to  42. 

There  are  several  noticeable  effects  on  the  RL 
calculations  made  during  periods  of  declining  demand,  using 
the  "net  benefit"  models.  The  effects  can  be  attributed  to 
the  demand  forecasting  method  used  in  UICP  and  the  use  of  the 
forecasted  demand  in  the  RL  calculations.  First,  there  is  a 
lag  between  the  time  the  declining  demand  period  starts  and 
the  time  the  RL  reacts  to  the  changing  demand.   This  lag  is 
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directly  correlated  to  the  lag  between  the  time  the  actual 
demand  changes  and  the  time  the  forecasted  demand  reflects 
this  change. 

Second,  the  step-ups  in  RLs  for  the  demand  scenarios  with 
high  quarterly  mean  demand  (Graphs  28  to  33  and  37  to  42) 
occurred  when  a  "trend"  (declining  demand)  was  detected  by  the 
UICP  demand  forecasting  application.  When  a  "trend"  is 
detected,  demand  forecasting  switches  from  simple  exponential 
smoothing  to  a  four  quarter  moving  average.  This  change  in 
forecasting  method  caused  the  forecasted  demand,  reorder 
quantity  (EOQ)  and  reorder  point  to  drop  rapidly,  which  in 
turn  resulted  in  the  step  increases  in  the  RLs.  The  step  is 
more  prominent  in  the  demand  scenarios  with  a  convex  pattern 
of  declining  demand.  This  is  due  to  the  fact  that  the 
decrease  in  demand  was  more  rapid  for  the  convex  pattern  of 
declining  demand  and  the  final  forecasted  quarterly  demand  was 
approximately  one  unit  per  quarter  less  than  the  concave  and 
step  patterns  of  declining  demand. 

Third,  the  steps  down  in  the  RLs  for  the  demand  scenarios 
with  low  mean  quarterly  demand  and  high  unit  price  (Graphs  25 
to  27)  occurred  when  actual  demand  approached  zero  at  the  end 
of  the  declining  demand  period  and  the  forecasted  demand  had 
not  yet  stabilized.  For  some  simulation  replications,  several 
quarters  of  zero  demand,  in  sequence,  were  observed  when 
actual  mean  quarterly  demand  was  close  to  zero  after  the 
period  of  declining  demand.    For  these  replications  and 
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quarters  this  caused  the  forecasted  demand  and  the  RLs  to  go 
to  zero.  Therefore,  the  simulation  average  RLs  for  those 
quarters  were  lower  than  the  average  RLs  for  the  remaining 
quarters.  When  the  demand  forecast  stabilized  about  the  final 
mean  quarterly  demand,  the  RLs  also  stabilized. 

Finally,  the  RLs  for  the  NB-MOD  model  in  the  demand 
scenarios  with  high  mean  quarterly  demand  and  high  unit  price 
did  not  increase  as  expected  when  demand  decreased  (Graphs  28 
to  33).  This  can  be  attributed  to  the  decrease  in  expected 
number  of  shortages  as  demand  decreased.  The  NB-MOD  model  RL 
(Equation  2.24)  is  a  function  of  the  NB  model  RL  (Equation 
2.13)  plus  a  term  added  to  account  for  potential  shortages. 
As  seen  in  Graphs  2  8  through  3  3  the  NB  model  RLs  were 
increasing  as  demand  decreased.  Because  the  NB-MOD  model  RLs 
are  decreasing  in  these  same  scenarios,  this  indicates  that 
the  increase  in  the  RLs  due  to  the  decrease  in  demand  was  more 
than  offset  by  the  reduction  in  the  RLs  due  to  the  decrease  in 
expected  number  of  shortages. 

A  specific  observation  which  warrants  further  discussion 
is  the  effect  that  the  five  unit  minimum  Retention  Quantity 
(RQ)  constraint  (used  in  the  UICP  retention  logic)  has  on  the 
results  of  simulations  involving  low  mean  quarterly  demand. 
The  Declining  Demand  Analysis  simulations  were  originally  run 
with  only  the  UICP  model  constrained  to  a  minimum  RQ  of  five 
units.  As  a  result,  when  forecasted  annual  demand  approached 
zero  at  the  end  of  the  declining  mean  quarterly  demand  period, 
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the  UICP  RQ  remained  fixed  at  five  units  while  the 
unconstrained  RQs  for  all  of  the  mathematical  models 
approached  zero.  In  essence,  without  the  constraint  the 
mathematical  models'  RQ  stayed  at  zero  regardless  of  how  large 
the  respective  RLs  were.  Additionally,  while  the  UICP  RQ 
remained  a  five  units,  the  RL  grew  substantially.  Based  on 
preliminary  results  it  became  apparent  that  the  five  unit 
minimum  retention  quantity  gave  the  UICP  a  significant 
advantage  over  the  other  models  with  regard  to  total  cost  and 
average  customer  wait  time.  The  five  unit  minimum  retention 
quantity  was  then  applied  to  all  the  models  and  the  Declining 
Demand  Analysis  simulations  were  rerun  to  determine  what 
effect  this  constraint  would  have.  We  found  that  this  minimum 
retention  quantity  improved  the  performance  in  both  the  TC  and 
ACWT  MOEs  for  all  of  the  models  and  these  results  were  used  to 
make  the  final  performance  comparison  presented  in  Appendix  B 
and  Table  8. 
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VI.    SENSITIVITY  ANALYSIS 
A .   OVERVIEW 

The  sensitivity  analysis  was  designed  to  determine  how 
changes  in  selected  parameter  values  affect  the  retention 
levels  of  the  respective  models.  The  parameters  used  in  this 
analysis  were  chosen  because  it  is  extremely  difficult  to 
accurately  estimate  the  parameter  values  from  available 
historical  costs.  The  estimates  for  these  rates  could  be 
somewhat  inaccurate  because  the  historical  costs  associated 
with  a  given  parameter  are  either  not  available  or  not  easily 
allocated  to  the  individual  items.  Therefore,  it  is  important 
to  determine  how  each  model  reacts  to  changes  in  these  rates. 
The  goal  of  the  sensitivity  analysis  is  to  identify  which 
model's  RL  calculations  are  robust  with  respect  to  changes  in 
the  various  parameter  values.  This  information  should  aid 
decision  makers  in  the  selection  of  an  appropriate  model  based 
on  the  level  of  uncertainty  in  the  value  of  a  specific 
parameter.  In  addition  to  the  robustness  of  the  RL ' s  of  the 
models  based  on  changes  in  a  given  parameter,  we  will  also 
look  at  the  robustness  of  the  model's  performance,  with 
respect  to  TC  and  ACWT  for  four  specific  scenarios  from  the 
Declining  Demand  Analysis. 

The  sensitivity  analysis  was  conducted  for  two  demand 
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scenarios  (HDHVHP  and  LDHP)  and  two  declining  demand  patterns 
from  the  Declining  Demand  Analysis  (convex  and  concave) .  For 
each  combination  of  demand  scenario  and  declining  demand 
pattern,  four  parameters  were  analyzed.  For  each  parameter 
four  values  (including  the  UICP  (CARES)  default  rates  used  in 
the  Declining  Demand  Analysis)  were  used.  Table  9  summarizes 
the  16  simulation  settings  which  resulted  from  combinations  of 
demand  scenario,  declining  demand  pattern  and  parameter 
values.  For  a  specific  setting  all  other  parameters  and 
simulation  characteristics  were  identical  to  those  used  in  the 
Declining  Demand  Analysis  for  the  respective  demand  scenario 
and  declining  demand  pattern. 

TABLE  9.   16  SENSITIVITY  ANALYSIS  SIMULATION  SETTINGS 


OBSOLESCENCE 
RATE 

SALVAGE 
RATE 

HOLDING  COST 
RATE 

ORDER  COST 
RATE 

0.06 
$/UNIT-YR 

0.01 
%/UNIT    COST 

0.01* 
$/UNIT-YR 

200 
$/ ORDER 

0.09 
$/UNIT-YR 

0.02* 
%/UNIT    COST 

0.03 
$/UNIT-YR 

400 
$/ ORDER 

0.12* 
$/UNIT-YR 

0.05 
%/UNIT    COST 

0.05 
$/UNIT-YR 

800* 
$/ ORDER 

0.15 
$/UNIT-YR 

0.15 
%/UNIT    COST 

0.07 
$/UNIT-YR 

1200 
$/ ORDER 

*  Denotes  UICP (CARES)  default  value! 


B .   RESULTS 

Simulation   and   performance   comparison   results   are 
presented  in  Appendix  C.   The  ACWT  and  total  cost  in  bold 
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print  indicate  the  value  which  is  the  best  performer  in  its 
respective  MOE  category.  When  more  than  one  value  is  in  bold 
print  this  indicates  that  the  values  were  statistically 
equivalent  based  on  the  paired  difference  t-test.  Table  10 
and  Table  11  summarize  the  effects  the  varying  rates  had  on 
each  model's  RL  for  the  HDHVHP  demand  scenario  and  the  LDHP 
demand  scenario,  respectively. 

In  general,  based  on  the  results  displayed  in  Tables  10 
and  11  the  following  observations  can  be  made  with  regards  to 
the  sensitivity  of  the  RL '  s  of  the  models  to  changes  in  a 
given  parameter.  All  models  were  robust  with  respect  to 
changes  in  order  cost  rate  and  the  three  "net  benefit"  models 
were  robust  with  respect  to  changes  in  the  holding  cost  rate. 
The  TRAD  model  was  sensitive  to  changes  in  holding  cost  rate 
and  all  models  showed  sensitivity  to  changes  in  obsolescence 
rate.  The  type  of  demand  scenario  had  little  effect  on  the 
RL ' s  for  all  of  the  models. 

Observations  regarding  the  sensitivity  of  the  models  due 
to  changes  in  a  given  parameter  value  are  summarized  in  Table 
12.  The  observations  in  Table  12  indicate  the  effect  of 
changes  in  a  given  parameter  value  for  a  specific  demand 
scenario  and  pattern  of  declining  demand  on  the  performance  of 
the  various  models.  For  each  parameter,  the  respective  UICP 
(CARES)  default  parameter  value  was  used  as  the  comparison 
baseline.  The  following  types  of  observations  were  made. 
Observation  type  0  means  no  significant  change  occurred  in  a 
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TABLE  10.   RANGE  OF  AVERAGE  RL  -  HDHVHP  SCENARIO 


Rate 

Decline 

Rate 

TRAD 

NB 

MOD 

NPV 

UICP 

Holding 
Cost 

Convex 

Low 

13.9 

5.4 

7.1 

5.0 

8.  0 

High 

6.7 

4.2 

5.  7 

4.  0 

8.  0 

Concave 

Low 

13.9 

5.4 

6.9 

5.  0 

8.  0 

High 

6.  7 

4.2 

5.5 

4.  0 

8.0 

Order 

Cost 

Convex 

Low 

13.9 

5.3 

6.9 

4.9 

8.  0 

High 

13.9 

5.5 

7.2 

5.1 

8.0 

Concave 

Low 

13.9 

5.3 

6.8 

4.9 

8.0 

High 

13.9 

5.4 

6.9 

5.  0 

8.0 

Obsolete 

Convex 

Low 

18.6 

7.6 

9.4 

6.  8 

8.0 

High 

12.3 

4.8 

6.3 

4.4 

8.  0* 

Concave 

Low 

IB. 6 

7.6 

9.1 

6.8 

8.0 

High 

12.3 

4.  7 

6.1 

4.4 

8.0 

Salvage 

Convex 

14.7 

5.5 

7.1 

5.1 

8.0 

Hign 

8.5 

4.8 

6.4 

4.3 

8.  0 

Concave 

Low 

14.  7 

5.4 

6.9 

5.0 

8.0 

High 

8.5 

4.  7 

6.2 

4.3 

8.0 
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TABLE  11.   RANGE  OF  AVERAGE  RL  -  LDHP  SCENARIO 


Rate 

Decline 

Rate 

TRAD 

NB 

MOD 

NPV 

UICP 

Holding 
Cost 

Convex 

Low 

13.9 

5.  8 

6.5 

5.4 

8.0 

High 

6.7 

4.8 

5.2 

4.4 

8.0 

Concave 

Low 

13.9 

6.3 

7.2 

5.8 

8.0 

High 

6.7 

5.0 

5.  7 

4.  7 

8.  0 

Order 

Cost 

Convex 

Low 

13.9 

5.4 

6.1 

5.0 

8.0 

High 

13.9 

6.0 

6.8 

5.6 

8.0 

Concave 

Low 

13.9 

5.7 

6.6 

5.4 

8 .  0 

High 

13.9 

6.6 

7.5 

6.1 

8.0 

Obsolete 

Convex 

Low 

18.6 

8.0 

8.9 

7.1 

8.0 

High 

12.3 

5.1 

5.8 

4.8 

8.0 

Concave 

Low 

18.6 

8.  7 

9.8 

7.7 

8.0 

High 

12.3 

5.6 

6.4 

5.2 

8.0 

Salvage 

Convex 

Low 

14.7 

5.8 

6.6 

5.5 

8.0 

High 

8.5 

5.2 

5.9 

4.  7 

8.0 

Concave 

Low 

14.7 

6.3 

7.3 

5.9 

8.0 

High 

8.5 

5.  7 

6.  6 

5.1 

8.  0 
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model's  performance.  Observation  type  1  occurred  when  a 
model ' s  performance  improved  for  parameter  values  greater  than 
the  respective  UICP  (CARES)  default  parameter  value. 
Observation  type  2  occurred  when  a  model's  performance 
improved  for  parameter  values  less  than  the  respective  UICP 
(CARES)  default  parameter  value.  Observation  type  3  occurred 
when  a  model's  performance  declined  for  parameter  values 
greater  than  the  respective  UICP  (CARES)  default  parameter 
value.  Observation  type  4  occurred  when  a  model's  performance 
declined  for  parameter  values  less  than  the  respective  UICP 
(CARES)  default  parameter  value. 

Based  on  the  results  displayed  in  Table  12  the  following 
general  observations  with  regards  to  the  sensitivity  can  be 
made.  The  performance  of  the  NB  and  NB-MOD  models  was  robust 
with  respect  to  changes  in  all  parameter  values  for  all 
scenarios.  The  performance  of  the  UICP  model  was  sensitive  to 
changes  in  all  parameters  values,  except  salvage  rate,  for  all 
LDHP  scenarios.  The  performance  of  the  TRAD  model  tended  to 
improve  with  both  increases  and  decreases  in  the  obsolescence 
rate  and  salvage  rate  parameter  values  for  all  HDHVHP 
scenarios.  The  NB-NPV  model's  performance  tended  to  decline 
for  salvage  rate  parameter  values  greater  than  the  UICP 
(CARES)  default  value  in  both  the  LDHP  and  HDHVHP  scenarios. 
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TABLE  12 


SENSITIVITY  ANALYSIS  PERFORMANCE  OBSERVATIONS 


Rate 

Decline 

Demand 

TRAD 

NB 

MOD 

NPV 

UICP 

Holding 
Cost 

Convex 

LDHP 

0 

0 

3 

0 

1 

HDHVHP 

0 

0 

0 

0 

0 

Concave 

LDHP 

0 

0 

0 

0 

1 

HDHVHP 

0 

0 

0 

0 

0 

Order 
Cost 

Convex 

LDHP 

0 

0 

0 

0 

3 

HDHVHP 

0 

0 

0 

0 

0 

Concave 

LDHP 

0 

0 

0 

0 

3 

HDHVHP 

0 

0 

0 

0 

0 

Obsolete 

Convex 

LDHP 

0 

0 

0 

0 

1 

HDHVHP 

2 

0 

0 

0 

0 

Concave 

LDHP 

0 

0 

4 

0 

4 

HDHVHP 

2 

0 

0 

0 

0 

Salvage 

Convex 

LDHP 

0 

0 

0 

3 

0 

HDHVHP 

1 

0 

0 

0 

0 

Concave 

LDHP 

0 

0 

0 

3 

0 

HDHVHP 

1 

0 

0 

3 

1 

The  sensitivity  analysis  can  be  summarized  as  follows. 
Although  the  RL  for  the  TRAD  model  displayed  the  most 
sensitivity  to  changes  in  the  parameter  values  analyzed,  it 
had  little  effect  on  the  performance  of  the  TRAD  model  as 
compared  to  all  other  models  analyzed.  The  UICP  model 
performance  displayed  the  most  sensitivity  to  changes  in  the 
parameter  values  analyzed. 
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VII.    OVERVIEW,  CONCLUSION  AND  RECOMMENDATIONS 


A.   OVERVIEW 

This  thesis  evaluated  the  effectiveness  of  the  Navy's  UICP 
economic  retention  model.  The  evaluation  was  performed  by 
comparing  several  mathematical  economic  retention  models  with 
the  Navy's  retention  model.  There  were  two  primary  factors 
that  motivated  this  thesis.  First,  the  Navy  does  not 
currently  apply  economic  retention  theory  when  making 
retention  decisions  for  the  majority  of  the  material  managed 
by  the  Navy.  Second,  the  excess  inventory  problem  will 
continue  to  grow  as  the  Navy's  budget  and  fleet  are  further 
reduced. 

An  analysis  of  the  models  was  performed  for  a  variety  of 
demand  scenarios  in  both  steady  state  and  declining  demand 
situations.  The  analysis  was  designed  with  two  goals  in  mind. 
The  first  goal  was  to  determine  which  model  (s)  were  most 
effective  in  a  demand  environment  similar  to  the  Navy's 
stochastic  demand  environment.  The  second  goal  was  to 
evaluate  how  the  Navy's  retention  process  performed  with 
respect  to  the  mathematical  models. 

A  simulation  of  the  Navy's  UICP  demand  process  and  the 
mathematical  retention  models  was  developed.   The  evaluation 
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of  the  various  models  was  based  on  the  measures  of 
effectiveness  (MOE)  of  total  cost  (TC)  over  a  specified  period 
of  simulation  time  and  average  customer  wait  time  (ACWT)  per 
requisition  for  all  requisitions  generated  over  a  specified 
period  of  simulation  time.  The  research  also  examined  model 
sensitivity  to  changes  in  various  parameters  common  to  the 
models.  The  parameters  were  chosen  for  the  analysis  because 
UICP  uses  estimates  of  the  true  rates  and  these  estimates 
could  vary  considerably  from  the  true  rates.  Results  of  the 
sensitivity  analysis  helped  to  determine  the  practicality  of 
applying  the  models  in  the  UICP  environment. 

B.   CONCLUSION 

The  findings  of  this  research  showed  that,  of  the  models 
analyzed,  there  was  not  one  economic  retention  model  or 
retention  quantity  which  yielded  the  lowest  total  cost  and 
ACWT  for  all  of  the  demand  and  retention  scenarios  analyzed. 
There  were  two  factors  which  contribute  to  this.  First,  the 
optimal  retention  level  varied  significantly  with  demand 
scenario  and  management  weighting  of  the  MOEs  of  TC  and  ACWT. 
Second,  all  the  models  analyzed  did  not  account  for  the 
stochastic  nature  of  demand  for  Navy  managed  items.  But, 
based  on  the  results  of  all  analysis,  the  "net  benefit" 
models,  as  a  group,  performed  the  best  and  generally  performed 
better  than  the  UICP  retention  model.  Additionally,  for  most 
demand  scenarios  in  both  the  Constant  and  Declining  Demand 
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Analysis,  the  decision  on  which  model  to  chose  could  typically 
be  determined  by  total  cost  alone.  This  was  due  to  the  fact 
that  the  difference  in  the  models'  ACWTs  (measured  in  days) 
for  each  demand  scenario,  were  generally  small. 

The  results  of  the  Total  Cost  Analysis  showed  that  there 
was  a  unique  "optimal"  retention  level  for  a  given  demand 
scenario  in  a  stochastic  demand  environment.  It  also  showed 
that  the  "optimal"  retention  level  varies  significantly  with 
changes  in  unit  price,  mean  quarterly  demand  and  variance  of 
mean  quarterly  demand. 

The  Constant  Demand  Analysis  compared  the  models  to  the 
"optimal"  retention  level  determined  in  the  Total  Cost 
Analysis.  In  general,  when  considering  both  TC  and  ACWT  the 
mathematical  models  performed  well  in  the  Navy's  stochastic 
demand  environment  with  respect  to  the  performance  obtained 
from  the  "optimal"  retention  level.  Additionally,  there  was 
typically  at  least  one  model  which  performed  as  well  as  the 
"optimal"  retention  level  with  respect  to  TC  alone.  The  NB 
and  NB-MOD  models  consistently  outperformed  the  UICP  model 
when  management  emphasis  was  placed  on  total  cost  or  mostly  on 
total  cost. 

The  results  of  the  Declining  Demand  Analysis  indicated 
that  the  "net  benefit"  mode's,  as  a  group,  were  the  best 
performers  over  all  scenarios  and  typically  outperformed  the 
UICP  retention  model.  The  average  retention  quantities  of  the 
best  performers  in  the  Declining  Demand  Analysis  varied  with 
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changes  in  the  unit  price,  mean  quarterly  demand  and  the 
variance  of  mean  quarterly  demand  in  a  pattern  similar  to  that 
observed  in  the  Total  Cost  Analysis  for  the  "optimal" 
retention  level.  The  declining  demand  pattern  had  little 
effect  on  overall  model  performance. 

The  performance  of  the  TRAD  model  dominated  the 
performance  of  the  other  models  across  all  analysis  scenarios 
with  respect  to  ACWT.  But  the  performance  of  the  NB,  NB-MOD 
and  UICP  models  was  competitive  with  respect  to  ACWT  in  most 
of  the  Declining  Demand  Analysis  scenarios.  It  is  important 
to  note  that  while  there  was  generally  a  significant  variation 
in  ACWT  in  terms  of  percentage  difference,  in  most  cases  the 
difference  in  terms  of  days  was  typically  small.  This 
observation  applies  to  both  the  Constant  and  Declining  Demand 
Analysis . 

The  results  from  the  sensitivity  analysis  showed  that  the 
performance  of  the  "net  benefit"  models,  as  a  group,  was 
robust  with  respect  to  changes  in  all  the  parameters  analyzed. 
The  UICP  model  performance  showed  the  most  sensitivity  to 
parameter  changes,  especially  with  respect  to  the  low  demand 
scenarios.  Although  the  RL  for  the  TRAD  model  displayed  the 
most  sensitivity  to  changes  in  the  parameter  values  analyzed, 
it  had  little  effect  on  the  performance  of  the  TRAD  model  as 
compared  to  all  other  models  analyzed. 
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C .   RECOMMENDATIONS 

There  are  three  areas  related  to  this  research  which  merit 
further  study.  First,  because  all  of  the  models'  actual 
retention  quantities  are  dependent  upon  the  demand  forecasting 
method,  the  effectiveness  of  a  model  is  limited  by  the 
accuracy  of  the  demand  forecast.  It  would  be  interesting  to 
see  how  performance  would  change  if  demand  forecasts  were 
adjusted  for  known  changes  in  future  demand  (i.e.  declining 
demand  due  to  decommissioning  of  ships).  Second,  further 
modifications  to  the  NB-MOD  model  could  be  made  to  improve  the 
treatment  of  the  stochastic  nature  of  demand.  Modifications 
could  include  changes  in  the  holding  cost  savings  and 
repurchase  cost  terms.  The  goal  would  be  to  develop  a  model 
which  performed  effectively  across  all  demand  scenarios. 
Third,  the  simulation  developed  for  this  thesis  could  be 
modified  to  include  the  Navy's  repairable  item  demand  process 
in  the  Forecasting,  Levels  and  Supply/Demand  Review  procedures 
of  the  main  program. 
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APPENDIX  A.  CONSTANT  DEMAND  ANALYSIS  RESULTS 


HDHVHP 


OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

26.65 

15.82 

27.03 

25.91 

28.30 

24.57 

TOTAL  COST 

1958776.92 

2414434.20 

1975859.01 

1960427.91 

1987098.52 

1976038.07 

YRS   RL 

6.72 

13.88 

5.20 

7.02 

4.80 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.90 

0.86 

0.89 

0.90 

0.88 

0.90 

75/25 

0.70 

0.95 

0.69 

0.71 

0.67 

0.73 

50/50 

0.80 

0.91 

0.79 

0.80 

0.77 

0.82 

HDHVLP 

OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.49 

3.48 

6.50 

4.98 

6.83 

6.49 

TOTAL  COST 

46801.69 

45729.89 

53279.98 

48005.34 

54968.84 

52995.40 

YRS  RL 

10.56 

13.88 

7.42 

9.55 

6.77 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.93 

1.00 

0.78 

0.89 

0.75 

0.78 

75/25 

0.83 

1.00 

0.62 

0.76 

0.59 

0.62 

50/50 

0.88 

1.00 

0.70 

0.83 

0.67 

0.70 

HDLVHP 

OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

10.55 

5.87 

11.06 

9.92 

10.94 

9.49 

TOTAL  COST 

1553346.41 

2245292.78 

1555618.75 

1577861.26 

1560130.79 

1620726.40 

YRS  RL 

5.56 

13.88 

5.20 

7.00 

4.80 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.89 

0.77 

0.88 

0.89 

0.88 

0.87 

75/25 

0.67 

0.92 

0.65 

0.69 

0.65 

0.70 

50/50 

0.78 

0.85 

0.76 

0.79 

0.77 

0.79 

HDLVLP 

OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.98 

0.67 

1.12 

0.96 

1.23 

1.08 

TOTAL  COST 

31781.21 

35668.89 

32172.09 

31934.70 

32681.24 

31950.82 

YRS   RL 

8.35 

13.88 

7.42 

9.55 

6.77 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.92 

0.92 

0.89 

0.92 

0.87 

0.90 

75/25 

0.76 

0.97 

0.70 

0.77 

0.65 

0.71 

50/50 

0.84 

0.95 

0.79 

0.85 

0.76 

0.81 

LDHP 

OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.76 

7.60 

12.59 

12.75 

72.73 

12.30 

TOTAL  COST 

185406.95 

239742.40 

185804.54 

185257.77 

186368.40 

188184.15 

YRS  RL 

6.44 

13.88 

5.85 

6.64 

5.46 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.90 

0.83 

0.90 

0.90 

0.89 

0.89 

75/25 

0.70 

0.94 

0.70 

0.70 

0.70 

0.71 

50/50 

0.80 

0.89 

0.80 

0.80 

0.80 

0.80 

LDLP 

OPTIMAL 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.72 

1.01 

0.20 

0.04 

0.61 

1.57 

TOTAL  COST 

5812.02 

5966.92 

6383.07 

6685.97 

5789.77 

7321.19 

YRS  RL 

16.30 

13.88 

23.36 

26.09 

16.77 

8.00 

MADM      %  ACWT/%  TC 

25/75 

0.76 

0.74 

0.73 

0.90 

0.77 

0.60 

75/25 

0.29 

0.27 

0.38 

0.97 

0.30 

0.22 

50/50 

0.53 

0.50 

0.55 

0.93 

0.53 

0.41 
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Constant  Demand  Analysis  Results 


Model  Ranking  by  MADM  Results 


1  2  3  4  5  6 


HDHVHP 


25%  ACWT  /  75%  TC 

UICP* 

NB-MOD* 

OPTIMAL* 

NB 

NB-NPV 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

OPTIMAL 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

OPTIMAL 

NB 

NB-NPV 

HDLVHP 


25%  ACWT  /  75%  TC 

OPTIMAL* 

NB-MOD* 

NB 

NB-NPV 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

OPTIMAL 

NB-NPV 

NB 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

OPTIMAL 

NB-NPV 

NB 

HDHVLP 


25%  ACWT  /  75%  TC 

TRAD 

OPTIMAL 

NB-MOD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

OPTIMAL 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

OPTIMAL 

NB-MOD 

UICP 

NB 

NB-NPV 

HDLVLP 


25%  ACWT  /  75%  TC 

TRAD* 

NB-MOD* 

OPTIMAL* 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

OPTIMAL 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

OPTIMAL 

UICP 

NB 

NB-NPV 

LDHP 


25%  ACWT  /  75%  TC 

NB-MOD* 

NB* 

OPTIMAL* 

NB-NPV 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

OPTIMAL 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB 

NB-MOD 

OPTIMAL 

NB-NPV 

LDLP 


25%  ACWT  /  75%  TC 

NB-MOD 

NB-NPV 

OPTIMAL 

TRAD 

NB 

UICP 

75%  ACWT  /  25%  TC 

NB-MOD 

NB 

NB-NPV 

OPTIMAL 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB-MOD 

NB 

NB-NPV 

OPTIMAL 

TRAD 

UICP 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 
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APPENDIX  B.   DECLINING  DEMAND  ANALYSIS  RESULTS 


Declining  Demand  Analysis  Results: 


HDHVHP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

9.32 

12.14 

11.78 

13.12 

10.90 

TOTAL  COST 

220789.55 

204371.92 

208616.37 

203448.36 

211492.75 

AVGYRS   RL 

13.88 

5.35 

6.84 

4.94 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.93 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.84 

0.78 

0.88 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.88 

0.86 

0.91 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.01 

25.77 

25.69 

26.45 

24.55 

TOTAL  COST 

349545.12 

334089.74 

338326.17 

333267.81 

340333.27 

AVGYRS  RL 

13.88 

5.43 

7.08 

5.02 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.98 

0.98 

75%  ACWT/ 25%  TC 

0.99 

0.95 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.96 

0.95 

0.98 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

14.72 

14.04 

15.05 

13.03 

TOTAL  COST 

231634.28 

208435.28 

213789.73 

207017.16 

217823.08 

AVGYRS  RL 

13.88 

5.38 

6.87 

4.98 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.90 

0.86 

0.94 

50%  ACWT  /  50%  TC 

0.95 

0.91 

0.92 

0.91 

0.95 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

TRAD* 

NB* 

UICP* 

NB-MOD 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1. 
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Declining  Demand  Analysis  Results: 


HDLVHP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.90 

0.91 

0.90 

0.93 

0.90 

TOTAL  COST 

130780.13 

123760.33 

125759.57 

123173.10 

127932.56 

AVGYRS  RL 

13.88 

5.38 

6.76 

4.97 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.99 

0.98 

0.99 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.99 

0.99 

0.98 

0.99 

50%  ACWT  /  50%  TC 

0.97 

0.99 

0.99 

0.98 

0.98 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

5.87 

5.90 

5.88 

5.91 

5.90 

TOTAL  COST 

236865.30 

229769.03 

230653.34 

229408.75 

232066.44 

AVGYRS  RL 

13.88 

5.53 

7.13 

5.11 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

1.00 

1.00 

1.00 

0.99 

75%  ACWT  /  25%  TC 

0.99 

1.00 

1.00 

0.99 

0.99 

50%  ACWT  /  50%  TC 

0.98 

1.00 

1.00 

1.00 

0.99 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

2.18 

2.19 

2.18 

2.19 

2.18 

TOTAL  COST 

151099.09 

131884.03 

134241.48 

130891.24 

138017.24 

AVGYRS  RL 

13.88 

5.43 

6.79 

5.03 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.90 

0.99 

0.98 

1.00 

0.96 

75%  ACWT  /  25%  TC 

0.97 

0.99 

0.99 

1.00 

0.99 

50%  ACWT  /  50%  TC 

0.93 

0.99 

0.99 

1.00 

0.97 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

NB* 

NB-NPV* 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

NB-MOD* 

UICP* 

NB* 

TRAD* 

NB-NPV 

50%  ACWT  /  50%  TC 

NB* 

NB-MOD* 

NB-NPV 

UICP 

TRAD 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

NB-MOD* 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

NB-MOD* 

NB* 

NB-NPV* 

UICP 

TRAD 

50%  ACWT  /  50%  TC 

NB-MOD* 

NB* 

NB-NPV* 

UICP 

TRAD 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV 

NB 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

NB-NPV 

NB 

NB-MOD 

UICP 

TRAD 

50%  ACWT  /  50%  TC 

NB-NPV 

NB 

NB-MOD 

UICP 

TRAD 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 
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Declining  Demand  Analysis  Results: 


HDHVLP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

6.21 

4.38 

3.65 

4.83 

7.92 

TOTAL  COST 

8097.71 

7117.98 

7079.50 

7222.02 

8469.34 

AVGYRS   RL 

13.88 

11.03 

13.40 

8.96 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.80 

0.95 

1.00 

0.92 

0.74 

75%  ACWT  /  25%  TC 

0.66 

0.87 

1.00 

0.81 

0.55 

50%  ACWT  /  50%  TC 

0.73 

0.91 

1.00 

0.87 

0.65 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

10.32 

10.08 

8.82 

11.39 

13.44 

TOTAL  COST 

13226.76 

13230.84 

12577.99 

13778.04 

14835.81 

AVGYRS  RL 

13.88 

18.49 

21.27 

10.89 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.93 

1.00 

0.88 

0.80 

75%  ACWT  /  25%  TC 

0.88 

0.89 

1.00 

0.81 

0.70 

50%  ACWT  /  50%  TC 

0.90 

0.91 

1.00 

0.84 

0.75 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

7.41 

5.42 

4.60 

6.87 

8.57 

TOTAL  COST 

8544.36 

7751.21 

7604.45 

8126.42 

8747.14 

AVGYRS  RL 

13.88 

12.44 

14.89 

9.62 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.82 

0.95 

1.00 

0.87 

0.79 

75%  ACWT  /  25%  TC 

0.69 

0.88 

1.00 

0.74 

0.62 

50%  ACWT  /  50%  TC 

0.76 

0.91 

1.00 

0.80 

0.70 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

75%  ACWT  /  25%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB-MOD 

NB 

TRAD 

NB-NPV 

UICP 

75%  ACWT  /  25%  TC 

NB-MOD 

NB 

TRAD 

NB-NPV 

UICP 

50%  ACWT  /  50%  TC 

NB-MOD 

NB 

TRAD 

NB-NPV 

UICP 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

75%  ACWT  /  25%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB-MOD 

NB 

NB-NPV 

TRAD 

UICP 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 . 
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Declining  Demand  Analysis  Results: 


HDLVLP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.06 

0.06 

0.06 

0.11 

0.06 

TOTAL  COST 

3374.65 

3530.82 

3626.05 

3307.52 

2966.10 

AVGYRS  RL 

13.88 

10.95 

13.10 

9.17 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.91 

0.88 

0.86 

0.81 

1.00 

75%  ACWT  /  25%  TC 

0.97 

0.96 

0.95 

0.63 

1.00 

50%  ACWT  /  50%  TC 

0.94 

0.92 

0.91 

0.72 

1.00 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.47 

0.46 

0.46 

0.46 

0.48 

TOTAL  COST 

5199.29 

5602.32 

5669.70 

5206.96 

5419.07 

AVGYRS  RL 

13.88 

23.78 

26.62 

12.50 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.99 

0.95 

0.94 

1.00 

0.96 

75%  ACWT  /  25%  TC 

0.98 

0.98 

0.98 

1.00 

0.96 

50%  ACWT  /  50%  TC 

0.99 

0.96 

0.96 

1.00 

0.96 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

0.13 

0.13 

0.13 

1.06 

0.13 

TOTAL  COST 

3375.91 

3810.11 

3918.66 

3676.27 

3078.21 

AVGYRS  RL 

13.88 

12.95 

15.16 

10.10 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.86 

0.84 

0.66 

1.00 

75%  ACWT  /  25%  TC 

0.98 

0.95 

0.95 

0.30 

1.00 

50%  ACWT  /  50%  TC 

0.96 

0.90 

0.89 

0.48 

1.00 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV 

TRAD 

UICP 

NB 

NB-MOD 

75%  ACWT  /  25%  TC 

NB-NPV 

TRAD 

NB 

NB-MOD 

UICP 

50%  ACWT  /  50%  TC 

NB-NPV 

TRAD 

NB 

NB-MOD 

UICP 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB 

NB-MOD 

NB-NPV 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 
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Declining  Demand  Analysis  Results: 


LDHP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

3.56 

5.45 

4.21 

5.82 

4.94 

TOTAL  COST 

24154.56 

23329.26 

23337.50 

23360.18 

23509.81 

AVGYRS   RL 

13.88 

6.21 

7.15 

5.76 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.91 

0.96 

0.90 

0.92 

75%  ACWT  /  25%  TC 

0.99 

0.74 

0.88 

0.71 

0.79 

50%  ACWT  /  50%  TC 

0.98 

0.83 

0.92 

0.81 

0.86 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.92 

13.31 

14.21 

13.79 

TOTAL  COST 

35582.07 

34485.15 

34587.07 

34404.45 

34623.23 

AVGYRS  RL 

13.88 

5.80 

6.54 

5.39 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.96 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

0.95 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.10 

5.44 

^6.38 

5.76 

TOTAL  COST 

25046.76 

23241.83 

23400.07 

23180.42 

23542.96 

AVGYRS   RL 

13.88 

6.29 

7.20 

5.83 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.86 

0.90 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB-MOD* 

TRAD* 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 
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Declining  Demand  Analysis  Results: 


LDLP 


STEP  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

2.43 

1.51 

1.51 

1.51 

3.33 

TOTAL  COST 

1185.21 

1079.81 

1079.81 

1074.83 

1593.66 

AVGYRS   RL 

13.88 

57.08 

61.15 

24.30 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.84 

1.00 

1.00 

1.00 

0.62 

75%  ACWT  /  25%  TC 

0.69 

1.00 

1.00 

1.00 

0.51 

50%  ACWT  /  50%  TC 

0.76 

1.00 

1.00 

1.00 

0.56 

CONVEX  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

2.49 

1.88 

1.88 

1.88 

3.15 

TOTAL  COST 

1472.60 

1458.72 

1458.73 

1447.05 

1634.17 

AVGYRS  RL 

13.88 

47.11 

50.43 

20.92 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.99 

0.99 

1.00 

0.81 

75%  ACWT  /  25%  TC 

0.81 

1.00 

1.00 

1.00 

0.67 

50%  ACWT  /  50%  TC 

0.87 

1.00 

1.00 

1.00 

0.74 

CONCAVE  DECREASES 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

1.50 

0.77 

0.77 

0.77 

1.55 

TOTAL  COST 

1054.90 

1013.75 

1013.75 

997.99 

1329.69 

AVGYRS  RL 

13.88 

62.30 

66.42 

24.80 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.84 

0.99 

0.99 

1.00 

0.69 

75%  ACWT  /  25%  TC 

0.62 

1.00 

1.00 

1.00 

0.56 

50%  ACWT  /  50%  TC 

0.73 

0.99 

0.99 

1.00 

0.62 

Model  Ranking  by  MADM  Results 


12  3  4  5 


STEP  DECREASES 

25%  ACWT  /  75%  TC 

NB* 

NB-MOD* 

NB-NPV* 

TRAD 

UICP 

75%  ACWT  /  25%  TC 

NB* 

NB-MOD* 

NB-NPV* 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB* 

NB-MOD* 

NB-NPV* 

TRAD 

UICP 

CONVEX  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV 

NB 

NB-MOD 

TRAD 

UICP 

75%  ACWT  /  25%  TC 

NB-NPV* 

NB* 

NB-MOD* 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB-NPV 

NB 

NB-MOD 

TRAD 

UICP 

CONCAVE  DECREASES 

25%  ACWT  /  75%  TC 

NB-NPV 

NB 

I       MOD 

TRAD 

UICP 

75%  ACWT  /  25%  TC 

NB-NPV* 

NB* 

NB-MOD* 

TRAD 

UICP 

50%  ACWT  /  50%  TC 

NB-NPV 

NB 

NB-MOD 

TRAD 

UICP 

Note:  *  indicates  models  have  same  rank  and  are  both  ranked  as  1 . 
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APPENDIX  C.   SENSATIVITY  ANALYSIS  RESULTS 


Sensativity  Analysis:  HIGH  DEMAND /CONVEX /STORAGE  RATE 


RATE  =  .01 


{Default  setting  tor  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.07 

25.77 

25.69 

26.45 

24.55 

TOTAL  COST 

349545.12 

334089.74 

338326.17 

333267.81 

340333.27 

AVG  YRS  RL 

13.88 

5.43 

7.08 

5.02 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.98 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.95 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.96 

0.95 

0.98 

RATE  =  .03 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

27.22 

29.69 

29.65 

30.44 

27.39 

TOTAL  COST 

357217.82 

345953.47 

350530.32 

344784.85 

353724.12 

AVG  YRS  RL 

9.81 

4.96 

6.54 

4.62 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.97 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.94 

0.93 

0.92 

0.99 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.95 

0.95 

0.98 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

29.27 

31.65 

30.10 

33.14 

29.18 

TOTAL  COST 

363849.86 

353272.39 

358558.53 

352736.24 

364253.12 

AVG  YRS  RL 

7.87 

4.57 

6.07 

4.28 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.98 

0.98 

0.97 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.94 

0.97 

0.91 

0.99 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.98 

0.94 

0.98 

RATE  =  .07 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

27.67 

30.78 

28.46 

31.70 

26.05 

TOTAL  COST 

372007.48 

362168  95 

368168.80 

361309.65 

375678.73 

AVG  YRS  RL 

6.65 

4.24 

5.67 

3.99 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.96 

0.96 

0.96 

0.97 

75%  ACWT  /  25%  TC 

0.95 

0.88 

0.93 

0.87 

0.99 

50%  ACWT  /  50%  TC 

0.96 

0.92 

0.95 

0.91 

0.98 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01    {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.03 


25%  ACWT  /  75%  TC 

UICP* 

NB* 

TRAD 

NB-NPV 

NB-MOD 

75%  ACWT  /  25%  TC 

TRAD* 

UICP* 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

NB-MOD* 

NB* 

TRAD* 

UICP* 

NB-NPV 

75%  ACWT/ 25%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB-MOD* 

NB 

NB-NPV 

Rate  =  0.07 


25%  ACWT  /  75%  TC 

UICP 

NB-MOD 

TRAD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis    HIGH  DEMAND  /CONVEX  /ORDER  COST  RATE 


RATE  =200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24  01 

26.35 

25.71 

27.12 

24.55 

TOTAL  COST 

347751.21 

331959.19 

336425.45 

331557.60 

338450.71 

AVG  YRS  RL 

13.88 

5.27 

6.91 

4.88 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.97 

098 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.95 

0.91 

098 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.96 

0.94 

0.98 

RATE  =  400 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.07 

25.94 

25.74 

27.03 

24.55 

TOTAL  COST 

348303.18 

332428.02 

337065.42 

332190.22 

339029.96 

AVG  YRS  RL 

13.88 

5.32 

6.97 

4.92 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.97 

0.98 

75%  ACWT  /  25%,  TC 

0.99 

0.94 

0  95 

0.92 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0  96 

0  94 

0  98 

RATE  =  800 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.01 

25.77 

25.69 

26.45 

24.55 

TOTAL  COST 

349545.12 

334089.74 

338326.17 

333267.81 

340333.27 

AVG  YRS  RL 

13.88 

5.43 

7  08 

5  02 

8  00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

098 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.95 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.96 

0.95 

0.98 

RATE  =  1200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.07 

25.89 

25.60 

26.33 

24.55 

TOTAL  COST 

350511.08 

335322.15 

339398.21 

334235.11 

341346.96 

AVG  YRS  RL 

13.88 

552 

7.17 

5.09 

800 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.98 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.94 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0  96 

096 

0  98 

Model  Ranking  by  MADM  Results 


Rate  =  200 


25%  ACWT  /  75%  TC 

UICP* 

NB* 

NB-MOD 

NB-NPV 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

Rate  =  400 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-MOD 

NB-NPV 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  a  800    {Defaults 

etting  for  DD4 

} 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  s  1200 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP' 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:   HIGH  DEMAND  /CONVEX  /OBSOLESENCE  RATE 


RATE  =  .06 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

14.97 

18.46 

17.17 

19.85 

17.99 

TOTAL  COST 

321842.45 

312977.96 

314537.71 

312285.90 

313143.04 

AVG  YRS  RL 

18.56 

7.64 

9.36 

6.79 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.95 

0.96 

0.94 

0.96 

75%  ACWT  /  25%  TC 

0.99 

0.86 

0.90 

0.82 

0.87 

50%  ACWT  /  50%  TC 

0.99 

0.90 

0.93 

0.88 

0.91 

RATE  =  .09 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

20.09 

21.68 

22.26 

23.13 

21.51 

TOTAL  COST 

335428.45 

323697.57 

326513.97 

323022. 15 

326486.69 

AVG  YRS  RL 

15.89 

6.34 

8.06 

5.76 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.97 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.94 

0.92 

0.90 

0.95 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.95 

0.93 

0.96 

RATE  =  .12 


{Default  setting  used  in  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.01 

25.77 

25.69 

26.45 

24.55 

TOTAL  COST 

349545.12 

334089.74 

338326.17 

333267.81 

340333.27 

AVG  YRS  RL 

13.88 

5.43 

7.08 

5.02 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

0.97 

0.98 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.95 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.96 

0.95 

0.98 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

28.05 

30.72 

29.68 

31.41 

28.52 

TOTAL  COST 

367494.39 

349330.60 

354442.86 

348535.63 

359087.21 

AVG  YRS  RL 

12.30 

4.76 

6.30 

4.44 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.98 

0.97 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.95 

0.92 

0.98 

50%  ACWT  /  50%  TC 

0.97 

0.96 

0.96 

0.95 

0.98 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.06 


25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.09 


25%  ACWT  /  75%  TC 

NB* 

UICP* 

TRAD 

NB-MOD 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB 

UICP 

NB-MOD 

NB-NPV 

Rate  =  0.12    {Default 

setting  used  ir 

DDA) 

25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-MOD* 

NB-NPV 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  HIGH  DEMAND/  CONVEX/  SALVAGE  RATE 


RATE  =  .01 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

23.92 

25.68 

25.63 

26  50 

24.55 

TOTAL  COST 

349587  94 

333013  67 

337285.25 

332267.49 

339281.04 

AVG  YRS  RL 

14.68 

5  48 

7.13 

5.07 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0  98 

0.97 

0.98 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0  95 

0  95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0  98 

0.96 

0.96 

0.95 

0.98 

RATE  =  .02 


{Default  setting  tor  DDA) 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.01 

25.77 

25.69 

26.45 

24.55 

TOTAL  COST 

349545.12 

334089  74 

338326.17 

333267.81 

340333.27 

AVG  YRS  RL 

13.88 

5  43 

7.08 

5.02 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0  98 

0.97 

098 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.95 

0.95 

0.93 

0.98 

50%  ACWT  /  50%  TC 

0.98 

0.96 

0.96 

0.95 

0.98 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.36 

26.11 

25.39 

26.80 

24.55 

TOTAL  COST 

350113.42 

337078.16 

341118.12 

336456.03 

343489.97 

AVG  YRS  RL 

12.05 

5.28 

6.93 

484 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.98 

098 

0.98 

098 

75%  ACWT  /  25%  TC 

0.99 

0.95 

0.97 

0.93 

0.99 

50%  ACWT  /  50%  TC 

098 

0.97 

0.97 

0  95 

0.99 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

24.41 

27.28 

26.05 

28  68 

24.55 

TOTAL  COST 

354825.77 

348165.07 

351228.86 

348567.61 

354012.31 

AVG  YRS  RL 

8.49 

4.79 

6.43 

4.28 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.99 

0.97 

0.98 

0.96 

0.99 

75%  ACWT  /  25%  TC 

1.00 

0.92 

0.95 

0.89 

0.99 

50%  ACWT  /  50%  TC 

0.99 

0.95 

0.96 

0.92 

0.99 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01 


25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.02     {Default  setting  for  PDA) 


25%  ACWT  /  75%  TC 

NB* 

UICP* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

UICP* 

NB* 

NB-MOD* 

NB-NPV* 

TRAD 

75%  ACWT  /  25%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB                NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD' 

UICP' 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Ananlysis:   HIGH  DEMAND/  CONCAVE/  STORAGE  RATE 


RATE  =  .01 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

14.72 

14.04 

15.05 

13.03 

TOTAL  COST 

231634.28 

208435.28 

213789.73 

207017.16 

217823.08 

AVGYRS  RL 

13.88 

5.38 

6.87 

498 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.90 

0.86 

0.94 

50%  ACWT  /  50%  TC 

0.95 

0.91 

0.92 

0.91 

0.95 

RATE  =  .03 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

73.42 

16.44 

15.47 

16.96 

14.25 

TOTAL  COST 

235398.86 

216923.50 

222797.49 

214975.46 

230106.07 

AVGYRS  RL 

9.81 

492 

6.34 

4.58 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.95 

0.94 

0.95 

0  94 

75%  ACWT  /  25%  TC 

0.98 

0.86 

0.89 

0.84 

0.94 

50%  ACWT  /  50%  TC 

0.96 

0.90 

0.92 

0.90 

0.94 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

16.71 

19.25 

17.88 

19.77 

16.47 

TOTAL  COST 

241397.60 

224443.92 

231525.01 

222982.12 

241893.88 

AVGYRS  RL 

7.87 

4.53 

5.89 

4.24 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.96 

0.95 

0.96 

094 

75%  ACWT  /  25%  TC 

0.97 

0.89 

0.93 

0.87 

0.98 

50%  ACWT  /  50%  TC 

0.95 

0.92 

0.94 

0.92 

0.96 

RATE  =  .07 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

17.56 

18.80 

17.60 

19.58 

15.18 

TOTAL  COST 

249385.1 1 

233548.76 

241665.02 

231922.85 

255296.49 

AVGYRS  RL 

6.65 

4.20 

5.49 

3.95 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.91 

0.95 

0.94 

0.94 

0.93 

75%  ACWT  /  25%  TC 

0.88 

0.85 

0.89 

0.83 

0.98 

50%  ACWT  /  50%  TC 

0.90 

0.90 

0.91 

0.89 

0.95 

Model  Ranking  by  MADM  Results 


Rate  =  0.01  {Default  setting  for  DDl 

J 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.03 


25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

NB* 

NB-NPV* 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.07 


25%  ACWT  /  75%  TC 

NB 

NB-NPV 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

UICP 

NB-MOD 

TRAD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

NB-MOD 

NB 

TRAD 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:   HIGH  DEMAND/  CONCAVE/  ORDER  COST  RATE 


RATE  =200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

1555 

14  98 

16.04 

13.03 

TOTAL  COST 

230883.87 

207366  24 

212826.75 

206063.49 

216922.74 

AVGYRS  RL 

13.88 

527 

6.76 

4.89 

8.00 

MADM 

25%  ACWT  /  75%  TC 

092 

0.94 

0.93 

0.94 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.84 

0.86 

0.82 

0.94 

50%  ACWT  /  50%  TC 

0.95 

0.89 

0.89 

0.88 

0.95 

RATE  =  400 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12  28 

14  90 

1485 

15  92 

13.03 

TOTAL  COST 

231114.77 

207692.54 

213235.53 

206532.50 

217199.76 

AVGYRS   RL 

13.88 

5.31 

680 

4.92 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.93 

0.94 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.86 

0.83 

0.94 

50%  ACWT  /  50%  TC 

0.95 

0.91 

0.90 

0.89 

0.95 

RATE  =800 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

14.72 

74.04 

15.05 

13.03 

TOTAL  COST 

231634.28 

208435.28 

213789.73 

207017.16 

217823.08 

AVGYRS  RL 

13.88 

38 

6.87 

4.98 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.90 

0.86 

0.94 

50%  ACWT  /  50%  TC 

0  95 

0.91 

0.92 

0.91 

0.95 

RATE  =  1200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

15.24 

13.89 

14.91 

13.03 

TOTAL  COST 

232038.35 

209184.56 

214424.41 

207656.06 

218307.87 

AVGYRS  RL 

13.88 

5.44 

6.93 

5.03 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.95 

0.96 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.85 

0.91 

0.87 

0.94 

50%  ACWT  /  50%  TC 

0  95 

0.90 

0.93 

0.91 

0.95 

Model  Ranking  by  MADM  Results 


1 


Rate  =  200 


25%  ACWT  /  75%  TC 

UICP 

NB 

NB-NPV 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Rate  =  400 

25%  ACWT  /  75%  TC 

NB* 

UICP' 

NB-NPV 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP* 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB 

NB-MOD 

NB-NPV 

Rate  =  800    (Defaults 

etting  for  DD4 

'1 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Rate  =  1200 

25%  ACWT  /  75%  TC 

NB-NPV* 

UICP* 

NB-MOD* 

NB 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB-NPV 

NB 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB-NPV 

NB 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  HIGH  DEMAND/  CONCAVE/  OBSOLESENCE  RATE 


RATE  =  .06 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

7.31 

10.43 

9.87 

11.97 

10.48 

TOTAL  COST 

198434.88 

183703.71 

186146.11 

182330.17 

184760.54 

AVGYRS  RL 

18.56 

7.57 

9.12 

6.75 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.92 

0.92 

0.90 

0.91 

75%  ACWT  /  25%  TC 

0.98 

0.77 

0.80 

0.71 

0.77 

50%  ACWT  /  50%  TC 

0.96 

0.85 

0.86 

0.81 

0.84 

RATE  =  .09 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

10.01 

12.71 

12.70 

13.78 

12.01 

TOTAL  COST 

214393.52 

196187.70 

199550.80 

194470.71 

200781.78 

AVGYRS  RL 

15.89 

6.29 

7.84 

5.72 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.94 

0.93 

0.93 

0.93 

75%  ACWT  /  25%  TC 

0.98 

0.84 

0.83 

0.79 

0.87 

50%  ACWT  /  50%  TC 

0.95 

0.89 

0.88 

0.86 

0.90 

RATE  =  .12 


(Default  setting  for  DDA) 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

14.72 

14.04 

15.05 

13.03 

TOTAL  COST 

231634.28 

208435.28 

213789.73 

207017.16 

217823.08 

AVGYRS  RL 

13.88 

5.38 

6.87 

4.98 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.90 

0.86 

0.94 

50%  ACWT  /  50%  TC 

0.95 

0.91 

0.92 

0.91 

0.95 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

15.21 

17.83 

17.20 

18.26 

16.29 

TOTAL  COST 

248709.14 

220141.05 

227080.61 

218510.54 

235916.93 

AVGYRS  RL 

12.30 

4.71 

6.11 

4.41 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.91 

0.96 

0.94 

0.96 

0.93 

75%  ACWT  /  25%  TC 

0.97 

0.89 

0.90 

0.87 

0.93 

50%  ACWT  /  50%  TC 

0.94 

0.92 

0.92 

0.92 

0.93 

Model  Ranking  by  MADM  Results 


Rate  =  0.06 


25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

Rate  =  0.09 

25%  ACWT  /  75%  TC 

NB 

UICP 

NB-NPV 

TRAD 

NB-MOD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB 

NB-MOD 

NB-NPV 

Rate  =  0.12     {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.15 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

NB-MOD 

UICP 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis    HIGH  DEMAND/ CONCAVE/ SALVAGE  RATE 


RATE  =  .01 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.22 

14.65 

14.03 

14.98 

13.03 

TOTAL  COST 

232609.91 

207664.49 

213227.69 

206361.40 

217132.09 

AVG  YRS  RL 

14.68 

5.43 

6.92 

5.04 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.97 

0.87 

0.90 

0.86 

0.94 

50%  ACWT  /  50%  TC 

0.94 

0.91 

0.92 

0.91 

0.94 

RATE  =  .02 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.28 

14.72 

14.04 

15.05 

13.03 

TOTAL  COST 

231634.28 

208435.28 

213789.73 

207017.16 

217823.08 

AVG  YRS  RL 

13.88 

5.38 

6.87 

4.98 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.92 

0.95 

0.94 

0.95 

0.95 

75%  ACWT  /  25%  TC 

097 

0.87 

0.90 

0  86 

0  94 

50%  ACWT  /  50%  TC 

0.95 

0.91 

0.92 

0.91 

095 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

72.66 

14.98 

14.42 

1534 

13.03 

TOTAL  COST 

229654.07 

210586.55 

215664.68 

209210.58 

219896  04 

AVG  YRS  RL 

12.05 

5.23 

6.72 

4.81 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.93 

0.96 

0.95 

096 

0.96 

75%  ACWT  /  25%  TC 

0.98 

0.88 

0.90 

0  87 

097 

50%  ACWT  /  50%  TC 

0.96 

0.92 

0.92 

091 

0.96 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

13.13 

15.47 

14.48 

17.54 

13.03 

TOTAL  COST 

227938.27 

217716.92 

221889.16 

216519.03 

226805.93 

AVG  YRS  ERL 

8.49 

4.73 

6.22 

4.25 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.96 

0.96 

0.94 

0.97 

75%  ACWT  /  25%  TC 

0.98 

0.88 

0.92 

0.81 

0.99 

50%  ACWT  /  50%  TC 

0.97 

0.92 

0.94 

0.87 

0.98 

Model  Ranking  by  MADM  Results 


Rate  =  0.01 


25%  ACWT  /  75%  TC 

NB-NPV* 

NB* 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.02    {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-NPV* 

NB' 

UICP* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

UICP* 

NB* 

NB-NPV* 

NB-MOD 

TRAD 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONVEX  /STORAGE  RATE 


RATE  r  .01 


{Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.92 

13.31 

14.21 

1379 

TOTAL  COST 

35582.07 

34485. 15 

34587.07 

34404.45 

34623.23 

AVG  YRS  RL 

13.88 

5.80 

6.54 

5.39 

8  00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.96 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

0.95 

RATE  =  .03 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

13.36 

15.65 

14.16 

16.27 

14.63 

TOTAL  COST 

36236.12 

35530.08 

35659.28 

35568.61 

35896.61 

AVG  YRS  RL 

9.81 

5.32 

6.02 

4.99 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.99 

0.96 

098 

0.95 

0.97 

75%  ACWT  /  25%  TC 

1.00 

0.89 

0.96 

0.87 

0.93 

50%  ACWT  /  50%  TC 

0.99 

0.93 

0.97 

0.91 

0.95 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

15.36 

18.07 

16.43 

18.78 

15.34 

TOTAL  COST 

36958.67 

36470. 1 1 

36622.29 

36497.76 

36990.70 

AVG  YRS  RL 

7.87 

4.93 

5.58 

4.65 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.99 

0.96 

0.98 

0.95 

0.99 

75%  ACWT  /  25%  TC 

1.00 

0.89 

0.95 

0.86 

1.00 

50%  ACWT  /  50%  TC 

0.99 

0.92 

0.96 

0.91 

0.99 

RATE  =  .07 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

17.24 

19.05 

18.53 

19.62 

16.46 

TOTAL  COST 

37686.09 

37412.26 

37582.75 

37390.56 

38098.63 

AVG  YRS  RL 

6.65 

4.59 

5.20 

4.36 

8.00 

MADM 

25%  ACWT  /  75%  TC 

098 

0.97 

0.97 

0.96 

0.99 

75%  ACWT  /  25%  TC 

0.96 

0.90 

0.91 

0.88 

1.00 

50%  ACWT  /  50%  TC 

0.97 

0.93 

0.94 

0.92 

0.99 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01    {Default 

setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.03 


25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.07 


25%  ACWT  /  75%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONVEX  /ORDER  COST 


RATE  =  200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

14.10 

13.72 

14.37 

13.79 

TOTAL  COST 

34904.16 

33647.57 

33901.15 

33701.20 

33914.69 

AVG  YRS  RL 

13  83 

5.36 

6.11 

5.03 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.97 

0.97 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.92 

0.93 

0.90 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.94 

0.95 

0.94 

0.95 

RATE  =  400 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

14.12 

13.24 

14.30 

13.79 

TOTAL  COST 

35112.74 

33868.70 

34091.89 

33908.62 

34132.71 

AVG  YRS  RL 

13.88 

5.50 

6.24 

5.14 

8  00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.92 

0.96 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.94 

0.97 

0.94 

0.95 

RATE  =  800 


{Default  setting  for  DDA) 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.92 

13.31 

14.21 

13.79 

TOTAL  COST 

35582.07 

34485.15 

34587.07 

34404.45 

34623.23 

AVG  YRS  RL 

13.88 

5.80 

6.54 

5.39 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.96 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

0.95 

RATE  =  1200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.75 

13.18 

14.00 

13.79 

TOTAL  COST 

35947.10 

34947.52 

35084.20 

34823.45 

35004.76 

AVG  YRS  RL 

13.88 

6.03 

6.77 

5.58 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.98 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.96 

0.92 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.95 

0.95 

Model  Ranking  by  MADM  Results 


1 


Rate  =  200 


25%  ACWT  /  75%  TC 

TRAD* 

NB-MOD* 

NB* 

UICP* 

NB-NPV* 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  400 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  800    {Default  s 

etting  for  DD4 

>> 

25%  ACWT  /  75%  TC 

NB-MOD* 

TRAD* 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  1200 

25%  ACWT  /  75%  TC 

NB-MOD* 

TRAD* 

NB* 

NB-NPV 

UICP 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONVEX  /OBSOLESENCE  RATE 


RATE  =  .06 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

7.32 

8.29 

8.10 

8.77 

8.66 

TOTAL  COST 

32578.42 

31942.98 

32004.91 

31834.59 

31757.68 

AVG  YRS  RL 

18.56 

8.00 

8.85 

7.13 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.97 

0.96 

0.96 

75%  ACWT  /  25%  TC 

0.99 

0.91 

0.93 

0.88 

0.88 

50%  ACWT  /  50%  TC 

0.99 

0.94 

0.95 

0.92 

0.92 

RATE  =  .09 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

9.64 

11.29 

10.48 

11.64 

10.84 

TOTAL  COST 

34027.66 

33172.34 

33374.83 

33099.09 

33165.38 

AVG  YRS  RL 

15.89 

6.71 

7.51 

6.13 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.96 

0.97 

0.96 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.89 

0.94 

0.87 

0.92 

50%  ACWT  /  50%  TC 

0.99 

0.93 

0.96 

0.91 

0.94 

RATE  =  .12 


{Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.92 

13.31 

14.21 

13.79 

TOTAL  COST 

35582.07 

34485. 15 

34587.07 

34404.45 

34623.23 

AVG  YRS  RL 

13.88 

580 

6.54 

5.39 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0.96 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

0.95 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

14.09 

15.96 

15.27 

16.92 

15.05 

TOTAL  COST 

37325.24 

36052.81 

36235  35 

36082.41 

36507.90 

AVG  YRS  RL 

12.30 

5.12 

5.79 

4.82 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.97 

0.98 

0.96 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.91 

0.94 

0.87 

0.95 

50%  ACWT  /  50%  TC 

0.98 

0.94 

0  96 

092 

0.96 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.06 


25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

Rate  =  0.09 

25%  ACWT  /  75%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.12 

25%  ACWT  /  75%  TC 

NB-MOD* 

TRAD* 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.15 

25%  ACWT  /  75%  TC 

NB-MOD 

UICP 

TRAD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONVEX  /SALVAGE  RATE 


RATE  =  .01 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.48 

13.86 

13.31 

14.19 

13.79 

TOTAL  COST 

35617.78 

34390.86 

34486.51 

34269.30 

34514.30 

AVG  YRS  RL 

14.68 

584 

6.59 

545 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.97 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.92 

0.95 

0.91 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

095 

RATE  =  .02 


{Default  setting  for  DDA) 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.54 

13.92 

13.31 

14.21 

13.79 

TOTAL  COST 

35582.07 

34485. 15 

34587.07 

34404.45 

34623.23 

AVG  YRS  RL 

13.88 

5.80 

6.54 

5.39 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.98 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.93 

0  96 

0.91 

0  93 

50%  ACWT  /  50%  TC 

0.98 

0.95 

0.97 

0.94 

0.95 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

12.66 

14.06 

13.14 

14.28 

13.79 

TOTAL  COST 

35626.31 

34778.79 

34928.90 

34707.40 

34950.03 

AVG  YRS  RL 

12.05 

5.66 

6.40 

5.23 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

0.99 

0.97 

0.97 

75%  ACWT  /  25%  TC 

0.99 

0.92 

0.97 

0.91 

0.94 

50%  ACWT  /  50%  TC 

0.99 

0.95 

0.98 

0.94 

0.96 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

13.65 

14.28 

13.45 

15.38 

13.79 

TOTAL  COST 

36082.08 

35882.73 

35994.66 

36148.96 

36039.37 

AVG  YRS  RL 

8.49 

5.20 

5.94 

4.70 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.99 

0.99 

1.00 

0.96 

0.99 

75%  ACWT  /  25%  TC 

0.99 

0.96 

1.00 

0.90 

0.98 

50%  ACWT  /  50%  TC 

0.99 

0.97 

1.00 

0.93 

0.99 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01 


25%  ACWT  /  75%  TC 

NB-MOD* 

NB* 

TRAD* 

UICP* 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.02 

25%  ACWT  /  75%  TC 

NB-MOD* 

TRAD* 

NB 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.05 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.15 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 
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Sensativity  Analysis:  LOW  DEMAND/  CONCAVE/  STORAGE  RATE 


RATE  =  .01 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.10 

5.44 

638 

5.76 

TOTAL  COST 

25046.76 

23241.83 

23400.07 

23180.42 

23542.96 

AVG  YRS  RL 

13.88 

6.29 

7.20 

5.83 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.86 

0.90 

RATE  =  .03 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

5.89 

7.27 

6.27 

7.69 

6.44 

TOTAL  COST 

25356.29 

24232.85 

24460.34 

24205.94 

24806.99 

AVG  YRS  RL 

9.81 

5.78 

6.63 

5.40 

8.00 

MADM 

25%  ACWT  '  75%,  TC 

0.97 

0.95 

0.98 

0.94 

0.96 

75%  ACWT  /  25%  TC 

0.99 

0.86 

0.95 

0.82 

0.93 

50%  ACWT  /  50%  TC 

0.98 

0.90 

0.96 

0.88 

0.95 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

6.56 

8.16 

7.40 

8.46 

6.50 

TOTAL  COST 

25680.64 

25028.55 

25314.93 

25054.40 

25761.12 

AVG  YRS  RL 

7.87 

5.35 

6.15 

5.04 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.95 

0.96 

0.94 

0.98 

75%  ACWT  /  25%  TC 

0.99 

0.85 

0.91 

0.83 

0.99 

50%  ACWT  /  50%  TC 

0.98 

0.90 

0.93 

0.88 

0.99 

RATE  =  .07 

TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

7.95 

8.71 

8.39 

8.83 

7.20 

TOTAL  COST 

26306.28 

25812.70 

26023.52 

25843.70 

26818.26 

AVG  YRS  RL 

6.65 

4.98 

5.73 

4.72 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.96 

0.96 

0.95 

0.97 

75%  ACWT  /  25%  TC 

0.92 

0.87 

0.89 

0.86 

0.99 

50%  ACWT  /  50%  TC 

0.94 

0.91 

0.93 

0.91 

0.98 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01     {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.03 


25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.05 


25%  ACWT  /  75%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP* 

TRAD* 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

UICP 

TRAD 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONCAVE  /ORDER  COST 


RATE  =  200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.67 

567 

6.80 

5.76 

TOTAL  COST 

24614.92 

22709.28 

22893.73 

22789.46 

23015.72 

AVG  YRS  RL 

13.88 

5.70 

6.62 

5.35 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0  94 

092 

0.95 

0.92 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0  77 

0.86 

0.76 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0  85 

0.91 

0.84 

0.90 

RATE  =  400 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.33 

5.42 

663 

5.76 

TOTAL  COST 

24747.79 

22850.09 

22977.85 

22954.51 

23177.95 

AVG  YRS  RL 

13.88 

5.88 

6.80 

550 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.93 

0.96 

092 

094 

75%  ACWT  /  25%  TC 

0.98 

0.80 

0.89 

0.77 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.87 

0.93 

085 

0.90 

RATE=8C) 


{Default  setting  tor  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.10 

5.44 

6.38 

5.76 

TOTAL  COST 

25046.76 

23241.83 

23400.07 

23180.42 

23542.96 

AVG  YRS  RL 

13.88 

6.29 

7.20 

5.83 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.86 

0.90 

RATE  =  1200 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

5.73 

5.38 

6.21 

5.76 

TOTAL  COST 

25279.29 

23569.44 

23772.05 

23553.80 

23826.86 

AVG  YRS  RL 

13.88 

6.60 

7.52 

6.08 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.95 

0.95 

0.96 

0.94 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.86 

0.90 

0.81 

0.85 

50%  ACWT  /  50%  TC 

0.97 

0.91 

0.93 

0  87 

0.90 

Model  Ranking  by  MADM  Results 


1 


Rate  =  200 


25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  400 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  800    {Defaults 

etting  for  DDA 

'> 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  1200 

25%  ACWT  /  75%  TC 

NB-MOD 

NB 

TRAD 

UICP 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

NB 

UICP 

NB-NPV 

Note:  "  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONCAVE  /OBSOLESENCE  RATE 


RATE  =  .06 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

2.54 

3.39 

3.45 

3.47 

3.53 

TOTAL  COST 

21881.18 

20559.13 

20789.88 

20418.57 

20569.38 

AVG  YRS  RL 

18.56 

8.67 

9.75 

7.71 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.95 

0.93 

0.92 

0.93 

0.92 

75%  ACWT  /  25%  TC 

0.98 

0.81 

0.80 

0.80 

0.79 

50%  ACWT  /  50%  TC 

0.97 

0.87 

0.86 

0.87 

0.86 

RATE  =  .09 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

3.4 1 

427 

4.08 

4.62 

4.11 

TOTAL  COST 

23337.77 

21852.72 

22156.85 

21776.48 

21990.64 

AVG  YRS  RL 

15.89 

7.28 

8.27 

6.63 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.95 

0.95 

0.95 

0.93 

0.95 

75%  ACWT  /  25%  TC 

0.98 

0.85 

0.87 

0.80 

0.87 

50%  ACWT  /  50%  TC 

0.97 

0.90 

0.91 

0.87 

0.91 

RATE  =  .12 


(Default  setting  for  DDA} 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.65 

6.10 

5.44 

6.38 

5.76 

TOTAL  COST 

25046.76 

23241.83 

23400.07 

23180.42 

23542.96 

AVG  YRS  RL 

13.88 

6.29 

7.20 

5.83 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.86 

0.90 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

6.78 

8.27 

7.44 

8.66 

7.22 

TOTAL  COST 

26743.28 

24822.09 

25049.00 

24825.86 

25463.42 

AVG  YRS  RL 

12.30 

5.55 

6.38 

5.21 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.95 

0.95 

0.97 

0.95 

0.97 

75%  ACWT  /  25%  TC 

0.98 

0.86 

0.93 

0.84 

0.95 

50%  ACWT  /  50%  TC 

0.96 

0.91 

0.95 

0.89 

0.96 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.06 


25%  ACWT  /  75%  TC 

TRAD 

NB-NPV 

NB 

UICP 

NB-MOD 

75%  ACWT  /  25%  TC 

TRAD 

NB 

NB-NPV 

NB-MOD 

UICP 

50%  ACWT  /  50%  TC 

TRAD 

NB 

NB-NPV 

NB-MOD 

UICP 

Rate  =  0.09 


25%  ACWT  /  75%  TC 

UICP* 

TRAD* 

NB* 

NB-MOD* 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

Rate  =  0.12    {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

NB-MOD* 

UICP* 

NB 

TRAD 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

UICP 

NB-MOD 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD* 

UICP* 

NB-MOD 

NB 

NB-NPV 

Note:  *  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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Sensativity  Analysis:  LOW  DEMAND  /CONCAVE  /SALVAGE  RATE 


RATE  =  .01 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.63 

608 

5.44 

6.29 

5.76 

TOTAL  COST 

25140.99 

23192.11 

23314.59 

23090.34 

23445.31 

AVG  YRS  RL 

14  68 

6.34 

7.25 

5.89 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

0.93 

0.94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0.85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.87 

0.89 

RATE  =  .02 


{Default  setting  for  DDA) 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4  65 

6.10 

5.44 

6.38 

5.76 

TOTAL  COST 

25046.76 

23241.83 

23400.07 

23180.42 

23542.96 

AVG  YRS  RL 

13.88 

629 

7.20 

5.83 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.94 

0.94 

0.96 

093 

0  94 

75%  ACWT  /  25%  TC 

0.98 

0.82 

0.89 

0.80 

0  85 

50%  ACWT  /  50%  TC 

0.96 

0.88 

0.92 

0.86 

0.90 

RATE  =  .05 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

4.95 

6.21 

5.38 

6.31 

5.76 

TOTAL  COST 

24885.57 

23596.79 

23678.48 

23491.25 

23835.93 

AVG  YRS  RL 

12.05 

6.14 

7.06 

5.66 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.96 

0.95 

0.97 

0.95 

0.95 

75%  ACWT  /  25%  TC 

0.99 

0.85 

0.94 

0.84 

0.89 

50%  ACWT  /  50%  TC 

0.97 

0.90 

0.96 

0.89 

092 

RATE  =  .15 


TRAD 

NB 

NB-MOD 

NB-NPV 

UICP 

ACWT 

5.64 

6.33 

5.49 

6.94 

5.76 

TOTAL  COST 

24901 .78 

24554. 13 

24663.63 

24894.49 

24812.47 

AVG  YRS  RL 

8.49 

5.65 

6.57 

5.10 

8.00 

MADM 

25%  ACWT  /  75%  TC 

0.98 

0.97 

1.00 

0.94 

0.98 

75%  ACWT  /  25%  TC 

0.98 

0.90 

1.00 

0.84 

0.96 

50%  ACWT  /  50%  TC 

0.98 

0.93 

1.00 

0.89 

0  97 

Model  Ranking  by  MADM  Results 


1 


Rate  =  0.01 


25%  ACWT    75%  TC 

NB-MOD 

UICP 

TRAD 

NB 

NB-NPV 

75%  ACWT    25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.02    {Default  setting  for  DDA} 

25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  s  0.05 


25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB-NPV 

NB 

75%  ACWT  /  25%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

TRAD 

NB-MOD 

UICP 

NB 

NB-NPV 

Rate  =  0.15 


25%  ACWT  /  75%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

75%  ACWT  /  25%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

50%  ACWT  /  50%  TC 

NB-MOD 

TRAD 

UICP 

NB 

NB-NPV 

Note:  "  indicates  models  have  the  same  rank  and  are  both  ranked  as  1 . 
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APPENDIX  D.    SIMULATION  CODE 

This  appendix  contains  the  following  pascal  code  for  the 
simulation: 

NAME TYPE  OF  CODE PAGE  # 

-  UICP_Simulator  main  program  109. 

-  toolbox  unit  144. 

-  unirand  unit  148. 

-  PDUnit  unit  153. 

-  PQueue.  unit  165. 


108 


program  UICP_Simuxator    ( input , ouput ) ; 


(CM  04000,0,0)  ($r+)  (CN+.E+)  ($G+) 

uses  dos,  crt ,  toolbox,  unirand,  PDUnit,  pqueue; 

type  quarterArray=array  (1..100)  of  real; 
week lyAiray=ai ray  [1..1300]  of  real; 
repArray=array  I1..750)  of  real; 
qtrIntArray=array  [1..100]  of  integer; 
changeRealArry  =  array  [1..5)  of  real; 
ehangelntArry  =  array  [1..5]  of  integer; 
pd82f ield=string| 15]  ; 
desci iptType=st ling [ 40 ] ; 

const  COEFFU1  .38b; 
POWER  1  =  0 . 7  4  b  ; 
COEFF2  =  3.86<); 
POWER2=l . 378; 
MAXPLT=14. 0; 
MINPLT=2.0; 

ERROR=l .0000000 0000000E- 0010, • 
YRSERR=8,• 
MINERR=5; 

Veil  wklyObserv:weeklyArray ; 

observ,  frcst,  mad,  EOQArry,  ROLevelAri-y ,  ERRAi ry , 

SSADDBO, SSADD, SSSMA ,  meanDmdArry ,  varDmdAiry , investQtr ,qtrSMA:quarterAriay ; 

stepIndAri-y ,  t  rndlndArry  , mkCodeArry  iqtrlntArray; 

observType ,  di  st  rType ,  out  put  Type ,  seedtype ,  wkDat  aType ,  qt  rDat  aType , 

PDDataType, repStatType, ERRType,anal IndType: char; 

number  Rep,  l  ,  numberOfReps,  numberOfQt is,  numberOfWks,markCode,  initlnv, si mCount: integer; 

meanDemand,  varDemand: real ; 

nolnt ,  trendOn  ,  StepOn  ,  runbi  St  eps,  runbrTrends ,  TWUS ,  orderCount ;  integer; 

s, seedlndex, numOt r: integer; 

currSeed:  longint  ; 

input  fi le, output  file: text; 

noReal , f ixERR: real ; 

stringval :pd82f leld; 

stop; boolean; 

startstep,  startrnd,  endtrnd:  changelntArry ; 

stepmult,  trendcoeff,  trendpower:  changeRealArry; 

hourl , minute 1 , secondl .hdSecl , hour2 ,minute2, second2 , hdSec2 :word; 

out Fi leName: string; 

OSHeap,  BOHeap:  Pi  ion  tyQueueType; 

ADDBO.ADD.SMA, Invest : real; 

simADDBO,  simADD,  simSMA,  simlnvest,  s imOidei Count : real ; 
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ciADDBO,ciADD,ciSMA,ci Invest , ciOrderCount : real ; 
ci Disposal s, ci disposal Count , ci EndOH, ciEndOS: real ; 
varADDBO, varADD, varSMA, var Invest , varOrdercount : real ; 
varlli  sposa  Is,  var  Disposal  Count ,  varEndOH,  varEndOS:  real  ; 
disposal Count ,disPosals, endOH, endOS: integer; 
simDispo sal Count , simDisposals, sim EndOH , simEndOS: real ; 
runDescript :de script Type; 

t  otCost , ho ldTC , orderTC , short TC , sa 1 vTR : rea 1 ; 

totCostArry  ,  holdTCArry  ,  orderTCAi  ry  ,  shortTCArry  ,  sa lvTRArry : quart erAi  i  ay  ; 
simTotCost , simHoldTC, simOrderTC, simShortTC, simSalvTR: real ; 
vai TotCost , varHo ldTC , varOrderTC , varShortTC , varSa 1 vTR : rea 1 ; 
ciTotCost ,  ciHoldTC,  ciOrderTCc  i  Short  TCci  Sal  vTR:  real; 
procedure  Front  screen ; 


begin 

clrscr ; 

wri  t  e 1 n ; 

wr  1 1  e 1 n ; 

wr 1 1  e 1 n ; 

wr  1 1  e 1 n ; 

writ el n; 

wi  1 1  e  1  n  ; 

wri teln 

wri teln 

wri teln 

wr  i  t  e  1  n 

wri teln 

wr  1 1  e  1  n 

wr  1 1  e  1  n 

wri teln 

wri teln 

wr l teln 

Delay (1500) ; 

c 1 rscr ; 
end; 


{For  1500  ms) 


UICP  LEVELS  FORECASTING 

SIMULATOR 

FOR  CONSUMABLES 

G.  C.  Robillard  LT,SC 
D.  C.  Miller  LCDR.SC 


procedure  runtype  (var  distrType, outputType ,wkDataType,qtrDataType , 

PDDataType, repStatType, ERRType,anal IndType:char; 
var  numberOfQtrs,numberOfWks,numberOfReps,seedIndex: integer; 
var  meanDemand,  varDemand: real ; 
var  numYrsOH, numYrsERR: real ; 
var  input fi le, output  file:  text ; 
var  f rest , mad :  quarterArray ; 
var  seeds: seedArryTyPe; 
var  out Fi leName: string; 
var  runDescript :descriptType} ; 
var  done:  boolean; 

i ,maxStart : integer; 
demandl nF  i 1 e :  st  r i  ng ; 


beg  l  n 
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wr  1 1  e  1  n  ; 

writeln  ('   '*'  THIS  SCREEN  WILL  allow  selection  of  run  type  options  ***•); 

done: =FALHE; 

wi  i teln; 

writeln;  writeln; 

write   {'Enter  the  number  of  replications  (from  1  to  750)  to  be  run  :  '  ); 

numberOfReps: =Get_I ntegei ( 1 ,750) ; 

wi  1 1  e  1  n  ; 

writel'Enter  Run  Description:  '); 

readln  I l unDescript ) ; 

writeln; 

wi i teln (' Quarterly  observations  will  be  generated  based  on  your  selection  of  distribution' 

writeln (' (Poisson  or  Normal)  and  seed  selection.'); 

wi"  l  te  1  n  ; 

repeat 

wiiteln  ('Random  Number  Generator  Seed  Selection:  '); 
writeln; 

writeln  ('  1  -  Default  array  -  unique  seed  for  each  replication'); 
writeln  ('  2  -  Select  seeds  -  max  number  of  replications  is  100'); 
writeln; 

write  ( 'Choice:  ' ) ; 
seedtype: =readkey ; 
writeln  ( seedtype) ; 
wr  i  t  e 1 n ; 

case  seedtype  of 
' 1 ' :  begin 

done:=TRUE; 

max St  art : =2000 1-numberOf Reps; 

write! 'Enter  Random  Seed  Start  Index  (  1  to  ' ,maxStart :2, '  ):  '); 
seedlndex:=  Get_Integer ( 1 ,maxStart ) ; 
end; 
' 2 ' :  begin 

done:=TRUE; 

if  numberOfReps  >  100  then  numberOfReps: =100; 

for  i  :=  1  to  numberOfReps  do  begin 

write  ('Enter  Seed  value  for  replication  ',i,'  :  '); 
seeds[i) : =Get_Longlnt ( 1 , 2147483646) ; 
wr  i  t  e 1 n ; 
end;    {for} 
end 
end 
until  done=TRUE; 
clrscr ; 

writeln  ('  ""  RUN  SELECTION  OPTIONS  CONTINUED  *"*'); 

writeln;  writeln; 

wiite   ('Enter  the  number  of  simulation  quarters:  '  ); 
numberOfQtrs:=Get_Integer (1 , 100) ; 
numberOfWks: =13 *NumberOfQt rs; 
wr  i  t  e 1 n ; 
done:=FALSE; 
repeat 
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writeln  ''Type  of  Distribution:  '); 
wr  1 1  e  1  n  ; 

writeln  ('   1  -  Norma  1'); 
writeln  ('   2  -  Poisson'); 
writeln; 

write  { 'Choice:  ' ) ; 
di strType: =readkey ; 
writeln  (di strType) ; 
wr  1 1  e 1 n ; 

case  di strType  of 
' 1 ' :  begin 

done:=TRUE; 

write  ('Entei  quarterly  mean  demand:  '); 
meanDemand:=Get_Real (0.0001.999Q9Q.0); 
writeln; 

write  ('Enter  demand  variance:  '); 
varDemand:=Get_Real (0.0001, 999999.0); 
writeln 
end; 
1 2 ' :  begin 

done:=TRUE; 

write  ('Enter  quarterly  mean  demand:  '); 
meanDemand:=Get_Real ( 0 . 0001 , 999999 . 0) ; 
varDemand: =meanDemand; 
writeln; 
end 
end 
until  done=TRUE; 
f rest [ 1 ] : =meanDemand; 

mad[l]  :=C0EFF1  *exp( POWER  1  Mn  (  frcst  [  1  ]  )  }  ; 
done:=FALSE; 
clrscr; 

writeln  ('  ****  RUN  SELECTION  OPTIONS  CONTINUED  ****"); 

writeln; 
repeat 

wiiteln  ('Initial  Inventory  and  Outstanding  Reorders   Selection:  '}; 
writeln; 

writeln  ('   0  -  Default:  Initial  Inv  =  EOQ  +  Safety  stock'); 
writeln  ('   1  -  User  specified  Initial  Inv,  No  Outstanding  Reorders'); 
writeln; 

write  ( 'Choice:  ' ) ; 
anal IndType: =readkey; 
wi i teln  (anal IndType) ; 
writeln; 

case  anal IndType  of 
'0' :  done:=TRUE; 
' 1 ' :  begin 

write (' Enter  initial  inventory  in  years  of  annual  demand  :  '}; 
numYrsOH:=Get_Real (0.0.1000.0); 
done:=TRUE; 
end; 
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end;   (case) 
unt i 1  done=TRUE; 
Hone:  =  FAL::E; 
clisci ; 


RUN  SELECTION  OPTION::  CONTINUED 


done:=FALSE; 
clrsci  ; 

write  In  (  ' 

wnteln; 

repeat 

wiiteln  ('Type  of  Economic  Retention  Model  Selection:  ' 

wi 1 t el n; 

0  -  No  economic  retention  model  used'); 

1  -  Navy  UICP-B20" ) ; 

2  -  Net  Benefit  Model'); 

3  -  Modified  Net  Benefit  Model'); 

4  -  NPV  Net  Benefit  Model'); 

5  -  Tradition  Retention  Model'); 
b  -  Fixed  Retention  Requirement  (in  years)' 


write In 

wr  i te  1  n 

wr  i teln 

writeln 

wi  i te  1  n 

writeln 

wr l teln 

writeln; 

write  ( ' Choice:  ' ) ; 

ERRType : =readkey ; 

writeln  (ERRType) ; 

writeln; 

case  ERRType  of 

•0' . . '5' :  done:=TRUE; 
'  b  '  :  beg  i  n 

write! 'Enter  retention  requirement  in  years 
numYrsERR:=Get_Real (0.0,1000.0); 
done:=TRUE; 
end; 
end;   {case} 
until  done=TRUE; 
d      FALSE; 
C     i  ; 

writeln  ('  ****  RUN  SELECTION  OPTIONS  CONTINUED 

writeln;  writeln; 
repeat 

wt i teln; 

writeln  ('Send  Output  to:  '); 
writeln; 

writeln  ('   1  -  Screen'); 
writeln  ( '   2  -  File' ) ; 
wr 1 1  e 1 n ; 

write  { ' Choice:  ' ) ; 
out put Type: =readkey ; 
writeln  (out put Type) ; 
case  outputType  of 
' 1 ' :  beg l n 

done: =TRUE; 

assign (output  f l le, ' con' ) ; 
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end; 
'  2  '  :  beg  1 n 

done:=TRUE; 
repeat 

wi  i  teln; 

wiite  ('Enter  Path  and  Filename:  '); 
read In  (out  Fi leName) ; 
writeln; 

writeln  ('Path  and  FileName  entered:  ', out Fi leName) ; 
writeln; 

write  ('Is  this  correct?  (Y  or  N)  :  '); 
unt i 1  Get_Answei ; 
assign ( output  fi le, out Fi leName) ; 
end; 
end; 
until  done=TRUE; 
wkDataType: =  '  0'  ; 
wr 1 1  e 1 n ; 

write! ' Include  Weekly  SDR  Data?  (Y  or  N) :  '  ); 
if  Get_Answer  then  wkDataType: = ' 1 ' ; 
<-jtrDataType:  =  '  0  '  ■ 
wi  1 1  e  1  n  ; 

write (' Include  Quarterly  SDR  Data?  (Y  or  N) :  '); 
if  Get_Answer  then  qtrDataType:=' 1 ' ; 
PDDataType: = ' 0 • ; 
writeln; 

write! ' Include  Quarterly  demand,  forecast  and  PD82/86  Data?  (Y  oi  N) : 
if  Get_Answer  then   PDDataType: =" 1 ' ; 
repStatType: =' 0 ' ; 
wi"  i  t  e  1  n  ; 

write (' Include  Replication  Statistics?  (Y  or  N) :  '); 
if  Get_Answer  then   repStatType: =* 1 ' ; 
end; 


procedure  RunAgain  ( var  output  file: text ; var  runDescript :descriptType; 

var  outputType, ERRType:chai ; 

var  stop: boolean; 

var  numYrsERR: real ; 

var  out FileName: string) ; 


var  demandlnFi le:  string; 

donel : boolean; 
begin 

stop: =FALSE; 

cl rscr; 

writeln    ('  *4,t    RE-RUN   SIMULATION  OPTIONS   SCREEN    ); 

wi  1 1  e  1  n  ; 

wri tel n ( ' Re-running  the  simulation  will  maintain  the  same  run-type  parameters,  but  will'); 

writeln (' al low  the  user  to  change  the  destination  (output)  file  and  vary  NIIN'); 

writeln ('and  model  parameters.'); 
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wi 1  te  In; 

wri  te  ( '  [)<  y  i  w  i    to  re -run  the  simulat  ion?  f  Y  or  N)  :  '  i  ; 
if  Get_Answei  then  begin 
wr  1 1  e  1  n  ; 

wri te ( 'Change  Run  Description?  (Y  or  N)  :  '): 
if  Get_Answer  then  begin 
wi  i  teln; 

write  ('Entei  Run  Description:  '); 
readln  ( runDescript ) ; 
end; 
wi  i  teln; 
donel :=FALSE; 

wi  ite ( 'Change  Economic  Retention  Model?  (Y  or  N)  :  '); 
if  Get_Answer  then  begin 
wr  1 1  e  1  n  ; 
wri teln; 
donel : =  FALSE; 
wr  i  t  e  1  n ; 
repeat 

writeln  ('Type  of  Economic  Retention  Model  Selection:  ' 
wr  i  t  e 1 n ; 

0  -  No  economic  retention  model  used'); 

1  -  Navy  UICP-B20' } ; 

2  -  Net  Benefit  Model'); 

3  -  Modified  Net  Benefit  Model"); 

4  -   NPV  Net  Benefit  Model"); 

5  -  Tradition  Retention  Model'); 
b  -  Fixed  Retention  Requirement  (in  years}' 


writeln 

writeln 

writeln 

writeln 

writeln 

writeln 

writeln 

writeln; 

write  (  'Choice:  '  )  ; 

ERRType: =readkey; 

writeln  (ERRType) ; 

wr i  t  el n ; 

case  ERRType  of 

'0' . . '5" :  donel :=TRUE; 
' 6 ' :  begin 

write( 'Enter  retention  requirement  in  years  : 
numYrsERR:=Get_Real (0. 0, 1000.0); 
donel :=TRUE ; 
end; 
end;   {case} 
unt  l  1  doneUTRUE; 
clrsci ; 

writeln  ("  ****  RUN  SELECTION  OPTIONS  CONTINUED  ***»' 

wi i t  e 1 n ;  wr  i  t  e 1 n ; 
end;   (if) 
if  outputType= ' 2 '  then  begin 
wr 1 1  e 1 n ; 

write! 'Change  Output  File?  (Y  oi  N) :  '); 
if  Get_Answei  then  begin 
repeat 
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writeln; 

wiite  ('Enter  Output  Path  and  Filename:  '); 
read In  (outFi leName) ; 
writeln; 

writeln  ('Path  and  FileName  entered:  ', out Fi leName) 
writeln; 

write  ('Is  this  correct?  (Y  or  N) :  '); 
unt 1 1  Get_Answei ; 
assign (output  fi le, out Fi leName) ; 
end; 
end; 
end  else  begin 

stop:=TRUE; 
end; 
clrscr; 
end; 


funct ion  GetMarkCode  (t , oldMark: integer;  f rest ,  unit  Price: real )  : integer; 

begin 

if  t =1  then  begin 

if  frcst  -  0.25  then  getMarkCode: =0 ; 
if  (frcst  >=  0.25)  and  (frcst  <  2.0)  then  begin 
if  (unitPrice  >=  300.00)  then  begin 

getMarkCode: =  3 ; 
end  else  begin 

getMarkCode: =1 ; 
end; 
end; 
if  frcst  >=  2.0  then  begin 

if  ( unit  Price* frcst )  >=  bOO.O  then  begin 

getMarkCode: =4 ; 
end  else  begin 

getMarkCode: =2 
end; 
end; 
end  else  begin 

getMarkCode :=oldMark ; 

if  oldMark  =  0  then  begin 

if  frcst  >=  0.5  then  begin 

if  (unitPrice  *=  300.00)  then  begin 

getMarkCode: =3; 
end  else  begin 

getMarkCode: =1 ; 
end; 
end; 
if  frcst  >=3  then  begin 

if  (unitPrice*  frcst )  >=  600.0  then  begin 

getMarkCode: =4; 
end  else  begin 
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getMarkCode: =2 

end; 
end; 
end; 

i  f  (oldMark=l  )  or  (oldMark=J)  then  begin 
if  frcst  >=J  then  begin 

if  (uni t Price*  f rest )  *=  bOO. 0  then  begin 

getMarkCode: =  4 ; 
end  else  begin 

getMarkCode: =  2 
end; 
end  else  if  umtPrice  <=  200  then  begin 

getMarkCode:=l ; 
end  else  if  umtPrice  -=  400  then  begin 

getMarkCode:=3; 
end; 

if  frcst  -=  0.25  then  getMarkCode: =0  • 
end; 

if  (oldMark=2)  or  (oldMark=4)  then  begin 
if  frcst  •=  1.0  then  begin 

if  (umtPrice  >=  300.00)  then  begin 

getMarkCode:=3; 
end  else  begin 

getMarkCode :=1  ; 
end; 
end  else  if  (umtPrice' frcst )  >=  800.00  then  begin 

getMarkCode: =4; 
end  else  if  (unitPrice* frcst)  <  =   400.00  then  begin 

getMarkCode: =2; 
end; 

if  frcst  -=  0.25  then  getMarkCode: =0; 
end; 
end 
end; 


procedure  Init  lalizeArrays  (var  observ,  EOQArry,  ROLevel  ,  SSADDBO,  SSADD, 

SSSMA,ERRAri-y:  quarter-Array; 

var   stepIndArry ,  trndIndAri"y  , mkCodeArry :  qt  rl  nt Array ; 

numberOf0trs,numberOfWks,numberRep: integer; 

meanDemand : rea 1 ; 

var  wklyObserv: weeklyArray ; 

var  meanDmdArry , varDmdAi ry : quart erArray ; 

var  totCostArry ,holdTCArry,orderTCArry , 
shortTCArry ,  salvTRArry ,  mvestQtr , 
qtrSMA:quarterArray) ; 
var  t : integer; 


begi  n 

for  t:=l  to  numberOfQtrs  do  begin 
observ[t 1 :=0.0; 
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meanDmdAi  ry  [  t  ]  :  =0  .  0; 


vaiDmdAiry  [t  ] :=0.0; 

EOQArry  (t  ]  :=0.  0; 
ROLevel [t I :=0.0; 
SGADDBO[t] :=0.0; 
SSADD[t ] :=0.0; 
SSSMA[t] :=0.0; 

stepIndArry  { t  ]  :  =0; 
tindlndArry (t ] :=0; 
mkCodeArry [t ) :=0; 
if    numberRep   =    1    then   begin 
totCostArry [t ] :=0.0; 
holdTCArry It ]  :=0.0; 
orderTCArry  [  t  ]  :  =  0 .  0 ,- 
shortTCArry [t ) :=0.0; 
salvTRArry  It  ]  :=0.0; 
ERRArry  (t  ]  :=0.0; 
investQtr[t ) :=0; 
qtl'SMA[t]  :=0; 
end;       (if) 
end; 
foi    t:=l    to    (numberOfWks)    do   begin 

wklyObservtt ]  :=0.0; 
end; 
end; 


piocedure    LoadObserv    (var   obsei  v  ,  f  i  est ,mad:quarterArray ; 
var   wklyObserv: weeklyArray ; 
vai    meanDmdArry ,  varDmdArry :  quart erAr ray ; 
observType,dist rType: char; 

numberOfQtrs.numberOfWks, repNum, simCount : integer; 
var   trendlnd, steplnd, nmbrSteps,    nmbrTrends: integer; 
meanDemand,    varDemand: real ; 
vai    input fi le: text ; 
var    seeds: seedArryType; 

vai    startstep,    startrnd,    endtrnd:    change  I ntArry ; 
var    stepmult,    trendcoeff,    trendpower:    changeRealAn-y ) 


var  SS:char; 

l,  t,  min,  observWeek : integer ; 

randnorm,  currMeanDmd,  mi  tTrendMean ,  coeffVar,  qtrObserv:  real ; 

demandlnFi le: string; 

begin 

if  (repNum  =  1)  and  (simCount  =  1)  then  begin 
for  i:=l  to  5  do  begin 

startstep! l] :=0;  start rnd [ i ]: =0;  endt rnd[ i ] : =0; 
stepmul t [ l ] : =0 . 0;  trendcoef f [ i ] : =0 . 0;  t rendpower [ l ] : =0 . 0 ; 
end; 
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nmbrSteps:  =0; 

nmbiTi ends: =0; 
end;   {if) 

currMeanllnd :  =meanDemand; 
coeffVai  :-sqrt  (vai Demand)  /meanDemand; 
foi  t:=0  to  inumberOfQt rs)  do  begin 

if  (t=0)  and  (iepNum  =  1)  and  I simCount =1 )  then  begin 

wn  t  e  1  n  ; 

wiite('Do  you  wish  to  vary  mean  demand  rate  over  time?  (Y  or  N)  :  '); 
if  Get_Answei  then  begin 
SS :  =  *  N  * ; 
Steplnd: =  0; 
t i  endlnd: =0; 
clrscr; 
wnteln; 

writeln  ('  '*'  Mean  Demand  Variants  '**    ' ) ; 

wi  i  t  e  1  n  ; 

wiiteln  ('You  have  the  option  to  vary  mean  demand  rate  over  time.   If  the  normal'}; 
wiiteln  ( ' di st r lbut ion  was  selected,  variance  will  also  change  to  maintain  your'); 
writeln  ('original  variance  to  mean  ratio.   You  may  choose  between  step  change'); 
writeln  ('or  trend  or  any  combination  of  the  events.   If  more  than  one  event  is'); 
writeln  ('chosen  to  occur  at  the  same  time,  step  changes  will  occur  first.'); 
writeln  ('A  maximum  of  5  occurances  of  each  event  is  allowed.*); 
wr  i  t  e  1  n  ; 
SS :  =  '  Y  ' ; 

write  ('Do  you  still  wish  to  vary  mean  demand  rate  ovei  time?  (Y  or  N) :  '); 
if  Get_Answer  then  begin 
SS : = ' N ' ; 
clrscr; 

writeln!'  *  *  *  Step  Changes  Screen  ***'); 

writeln; 

write  ('Do  you  wish  to  have  step  increases  or  decreases?  (Y  or  N) :  '); 
if  Get_Answer  then  steplnd: =1; 
if  steplnd=l  then  begin 
wr  1 1  e 1 n ; 

write!' Enter  the  number  of  steps  changes  desired  (max  5):  '); 
runbr Steps:  =Get_Integer  (1,5); 
writeln; 

writeln( 'The  step  function  is  of  the  form:   Mean ( t )  =  A  *  Mean ( t -  1 ) . ' ) ; 
wiitelnl'You  must  specify  the  value  of  "A*  for  each  step.'); 
m  l  n  :  =  1  ; 

for  i:=l  to  nmbrSteps  do  begin 
writeln; 

writeln  ('Step  ',i,':'); 
writeln; 

write  ('Step  quarter:  '); 

st art  step! i 1 : =Get_Integer (min , numberOfQt rs) ; 
writeln; 

write  (' Step  Mult ipl ler  (A):  '); 
stepmult  (  l]  :=Get_Real  (0  .  0000  1  ,  WW  .  0)  ; 
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w  i  1 1  e  1  n ; 

min: =start st ep [ i ] ; 
end; 
end; 
clrscr; 

wntelnf  '*'  Trend  Setting  Screen  ***'); 

writeln; 

write  ('Do  you  wish  to  have  trends?  (Y  or  N)  :  ' )  ; 
i f  Cet_Answer  then  t rendlnd: = 1 ; 
if  trendlnd=l  then  begin 
writeln; 

write l 'Enter  the  number  of  trend  periods  desired  (max  5):  '); 
nmbrt  rends: =Get_Integer (1,5) ; 
writeln; 

wntelnl'The  trend  function  is  of  the  form:'); 

writeln ( "  Meanft )  =  InitTrendMean  *  (  1  +  A  '  t (0)  *  *  Bl  ' )  : 

wi it eln { 'where  t ( 0 )  is  reset  to  '1'  at  the  beginning  of  each  t i end  period'); 
writeln! 'and  Ini tTrendMean  is  the  Mean  at  the  beginning  of  the  trend  period.'); 
writeln (' Parameters  A  and  B  must  be  specified  for  each  trend  period.'); 
m  l  n  :  =  1  ; 

for  i:=l  to  nmbrtrends  do  begin 
writeln; 

writeln  ( "Trend  '  ,  i  ,  '  :  '  )  ; 
writeln; 

wiite  ('Start  quarter:  *); 

start rnd [ l ) : =Get_ Integer (min , numberOfQt  rs) ; 
writeln; 

wiite  ('End  quarter:  '); 

endt rnd [ l ] : =Get_Integer ( start  rnd [ l ] , numberOfOt rs) ; 
wr 1 1  e 1 n ; 

write  ('Trend  coefficent  (A):  '}; 
trendcoef f (i ] :=Get_Real (-9999.0,9999.0); 
wr  i  t  e 1 n ; 

write  ('Trend  power  (B) :  '); 
trendpower ( i ] :=Get_Real (-9999.0,9999.0) ; 
writeln; 

mm:  =endt rnd  (  i  ]  +  1  ; 
end;  { fori 
end;     { i f  t rend=l } 
end;        { i f  getans } 
end;  { i  f  getans) 

end  else  if  t  -  0  then  begin 
if  SS='Y'  then  begin 

meanDmdArry [ t ] : =meanDemand; 
if  distrType= ' 1 '  then  begin 
varDmdAny  [  t  1  :  =varDemand; 
end  else  begin 

varDmdArry [ t ] : =currMeanDmd; 
end; 
end  else  begin 

if  steplnd  =  1  then  begin 
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for  i:=l  to  nmbrSteps  do  begin 

if  t  =  start step( i ]  then  currMeanDmd: =stepmult ( i ) 'currMeanDmd; 
end; 
end; 
if  trendlnd  =  1  then  begin 

for  i:  =  l  to  nmbrTrends  do  begin 

1  f  t  =  start rnd[  1  ]  then  ini tTrendMean: =currMeanDmd; 
if  (t  >=  start rnd(ij)  and  (t  -=  endtmdji])  then  begin 
currMeanDmd:  =ini tTrendMean*  I 1+t rendcoef f [ i 1  * 

(exp ( t rendpower [ i ] 'In ( t -start rnd [ i ] + 1 ) ) ) ) ; 
if  currMeanDmd  *  0.0  then  currMeanDmd: =0 . 0; ; 
end; 
end; 
end; 

meanDmdArry ( t ] : =currMeanDmd; 
if  distrType=* 1 '  then  begin 

varDmdArry  [ t ] : =sqr (coef  fVar 'currMeanDmd) ; 
end  else  begin 

varEJmdArry  [  t  ]  :  =currMeanDmd; 
end; 
end; 

if  di st rType= ' 1 '  then  begin 
randnorm: =GetNormal ; 

qtrObserv: = round (meanDmdArry  [t ]  +  (randnorm'sqrt ( varDmdArry [ t ] ) ) ) ; 
if  qtrObserv  *  0.0  then  qtrObserv: =0 . 0; 
for  i:=l  to  round(qtrObserv)  do  begin 
observWeek: =GetUni  f onnlnt ( 13 ) ; 
wklyObsei-v  (  ( t-  1 )  *  1  3  +  observWeek]  :  = 

wklyObsei-v  [  ( t  -  1 )  *  13+obsei"vWeek]  +1 ; 
end; 
end     {if} 
else  if  di st rType= ' 2 '  then  begin 

qtrObserv: =GetPoisson (meanDmdArry [ t ] ) ; 
for  i:=l  to  round (qtrObserv)  do  begin 
observWeek: =GetUni  f ormlnt { 13) ; 
wklyObserv  [  ( t  -1 )  *  13+obsei"vWeek]  :  = 

wklyObserv[  ( t-  1)  *  13+obsei-vWeek]  +1; 
end; 
end;   (else} 
observ(t]  :=qtrObsei-v; 
end;   {else, i  f } 
end;   { for) 
cl rscr ; 
end; 


procedure  Forecast  (var  obsei"v,  frcst,  madrquarterArray; 

var   stepIndArry,  trndlndArry ,mkCodeAriy :  qtrlntArray; 
numberOfOtrs, repNum: integer;  unitPrice: real ) ; 


const  ALPHA=0.1; 
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STEPBOUND1-3.0; 
STEPBOUND2=2.0; 

vai  uppei  ,  lower ,  sum ,  sampl  eMean  ,  sampleStdDev  ,  stdDevToMean :  real  ; 
uplnd,  downlnd,  steplnd,  trendlnd,  trendUp, 
trendDn,  t,  i,  j,  W,  S,  table: integer; 
kendTest ,  lowDemand: boolean; 

begin 

wi  i  teln  (' Running  Replication  tt  ' , repNum) ; 
mkCodeArry  [  1  ]  :  =getMarkCode  [  1 ,  0,  frcst  [  1  ]  , unit  Price)  ; 
uplnd: =0; downlnd: =  0; 

foi  t:=2  to  numberOfQtrs  do  begin  (Compute  quarterly  forecast} 

lowDemand: = FALSE; 
trendlnd: =0; 
steplnd: =0; 

if  ( ImkCodeAriy [t-1 ]  =  0)  or  (mkCodeArry [ t -  1 ]  =  11  or  (mkCodeArry [ t -1 )  =3))  then  LowDemand: =TRUE; 
if  lowDemand  then  begin 

uppei :=STEPB0UND1 * frcst [t-1]; 
lower: =  0.0; 
end  else  begin 

upper : -frcst 1 1- 1 1 +1 . 25 'mad [ t -  1 ]  *  STEPBOUND2 ; 
lower: =f rest [t-1 ] -1 . 25'mad[t- 1 ] 'STEPBOUND2; 
end; 
if  (lowDemand  and  (observ ( t -1 )  <  5))  or 

(  (obsei~v  [  t  -  1  ]  <  upper)  and  (observ[t-l]  »=  lower))  then  begin 
uplnd: =0; 
down  I nd : =  0 ; 

frcst (t ] :=ALPHA*observ[t-l]+(l-ALPHA) 'frcst [t-1] ; 
mad[t 1 :=ALPHA' [abs (observ ( t -  1 1  - frcst (t-1] ) )  +  (l-ALPHA) *mad[t-l] ; 
end  else  begin 

if  ( (observ [t -  1 ]  *  upper)  and  (uplnd=l))  or 

( (observ [t - 1 ]  •-  lower)  and  (downInd=l))  then  begin 
if  t  -4  then  begin 

frcst (t ] :  =  (observ [ t -4 ) + observ  [ t -3 ] + observ [ t -2 ] +observ  [ t -  1 ] ) / 4  ; 
end  else  if  t  =  4  then  begin 

frcst [t ]:  =  (observ 1 t-3 ) +observ [ t-2] +observ [ t -  1 ] )  /3 ; 
end  else  if  t  =  3  then  begin 

frcst [t ] := (observ [t-2] +observ [t-1 ] ) /2; 
end; 

if  frcst(t]  =  0.0  then  mad[t]:=0.0 
else  mad(t) : =COEFFl *exp ( POWER  1 ' In ( frcst [t] ) ) ; 
steplnd: =1 ; 
uplnd: =0; 
down  I nd : =  0 ; 
end  else  begin 

if  ( (observ [ t - 1 ]  >  upper)  and  (uplnd=0))  then  begin 
uplnd: =1; 

frcst [t ] :-f rest [t-1 1 ; 
mad(t] :=mad[ t- 1 ] ; 
end  else  begin 
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if  I  (obsei-v  Jt-1  ]  ■  lower)  and  fdownlnd=0)}  then  begin 
downlnd; =1 ; 
frcst (t ] :=frcst [t-1  ]  ; 
mad[t  ]  :  =mad[t-l  ]  ,- 
end; 
end; 
end; 
end; 

if  (t-4)  and  (steplnd=0)  then  begin      {Conduct  Kendall  Trend  Test} 
5  am  :  =  0  .  0  ; 
l f  t  '  =  B  then  begin 

for  i:=l  to  t-1  do  begin 

sum: =sum+observ [ i ] ; 
end; 

sampleMean : =  sum/ { t -  1 ) ; 
sum: =  0.0; 
for  i:  =  l  to  t-1  do  begin 

sum: =sum+sqr (observ [ i ] -sampleMean) ; 
end; 

sampleStdDev : =sqrt ( sum/ ( t-2) ) ; 
end  el se  beg i n 

for  i:=t-8  to  t-1  do  begin 

sum: =sum+observ I i ] ; 
end; 

sampleMean: =sum/8; 
sum: =0.0; 
for  i:=t-B  to  t-1  do  begin 

sum: =sum+sqr (observ [ i ] -sampleMean) ; 
end; 

sampleStdDev: =sqrt ( sum/ 7)  ; 
end; 
if  sampleMean  -  0.0  then  begin 

stdDevToMean: = sampleStdDev /sampleMean 
end  else  begin 

stdDevToMean : =99999 . 0 
end; 

kendTest : = false; 

if  (sampleMean  >=  J.0)  and  (stdDevToMean  <=  1.75)  then  begin 
kendTest : =true; 
if  stdDevToMean  >  1.0  then  begin 

table:=J; 
end  else  begin 

t able: =2; 
end; 
end; 

if  ((sampleMean  -=  1.0)  and  (sampleMean  <  3.0})  and 
(stdDevToMean  <=    1.75)  then  begin 
kendTest :=true; 
if  stdDevToMean  <•    1.25  then  begin 

table:=3; 
end  else  begin 
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table: =2  ; 
end; 
end; 

if  (  (sampleMean  ■=  0.125)  and  {sampleMean  •-  1.0))  and 
IstdDevToMean  •=  2.00)  then  begin 
kendTest : =t  rue; 
table:=2; 
end; 

if  kendTest=true  then  begin       (Conduct  Kendall  S-Test  for  Trend) 
W:=8; 

if  (sampleMean  •=  3.0)  and  (sampleMean  •  9.0)  then  begin 
if  IstdDevToMean  ■  0.J0)  then  W:=o,- 
end; 
if  (sampleMean  -=  9.0)  and  (sampleMean  <  20.0)  then  begin 
if  IstdDevToMean  -  0 .  "53 )  then  W:=b; 
if  IstdDevToMean  .  0.28)  then  W:=4; 
end; 
if  (sampleMean  >=  2  0.0)  then  begin 

if  IstdDevToMean  -  0.53)  then  W:=b; 
if  IstdDevToMean  -  0.28)  then  W:=4; 
end; 
if  W  .  (t-1)  then  W:=||t-1)  div  2)'2; 
S:=0; 

for  i:=(t-W)  to  (t-2)  do  begin      {Compute  Kendall  5-Statistic) 
for  j:=(i+l)  to  (t-1)  do  begin 

if  observ[i]  «  observ[j]  then  S:=S+1; 
if  observ(il  >  observ[;j]  then  S:=S-1; 
end; 
end;  (for) 

if  table  =  2  then  begin 
l  f  W  =  4  then  begin 

trendUp:=4;  t rendDn: =-4; 
end; 
l f  W  =  6  then  begin 

trendUp:=9;  trendDn:=-9; 
end; 
l  f  W  =  8  then  begin 

trendUp:=13;  t rendDn: =- 13 ; 
end; 
end  else  begin 

i f  W  =  4  then  begin 

trendUp:=b;  trendDn:=-b; 
end; 
i f  w  =  6  then  begin 

trendUp:=ll;  t rendDn: =-1 1; 
end; 
l f  W  =  8  then  begin 

trendUp:=lb;  trendDn: =- 1 b; 
end; 
end;  (if) 
trendlnd: =0; 
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if  S  -=  trendUp  then  t rendlnd: =1 ; 
if  S  -  =  trendDn  then  t rendlnd: =1 ; 
if  trendlnd  =1  then  begin 
sum: =  0.0; 

foi  l  :  =  ( t  -  4 )  to  it-1)  do  begin 
sum: =sum+observ [ l ) ; 
end; 
f rest [ t ] : =sum/4 ; 

if  ficst(t)  =  0.0  then  moid  [  t  ]  :  =0  .  0 
else  mad(t)  :  =COEFFl  *exp  [  POWER  1 '  In  (f  rest  It]  )  )  ; 
end;  (if) 
end;  (if) 
end;  (if) 
mkCodeArry (t ] : =getMarkCode  (t , mkCodeArry ( t -  1 1 , frcst (t ) , unit  Price) ; 
steplndArry (t ] :=steplnd; 
trndlndAny  (t ] :=t rendlnd; 
end;  ( for ) 
end; 

procedure  LoadLevels  (vai  frcst,  mad,  observ,  EOQArry,  ROLevelAi ry , 
SSADDBO,  GSADD,  SSSMA : quart erArray; 
vai  mkCodeArray :qtrIntAn ay ; 
vai  numberOfQtrs: integer; 
prbBrkPt : integer;  meanDemand: real ; 
PDDataType:char) ; 

vai  A023B,BRLDC.B011A,B01<)A.B023C,B023D.B073.M.PPV,B019,B021,BRLDCU:  real; 

PD82strl :  string[24 1 ; 

PD82str2,  PD82str3,  PD82str4,  PD82str5,  PD82strb,  PD82str7, 

PD82str8:  st ring (255) ; 

PD8bstrl:  string (24); 

PD8bstr2,  PD8bstr3,  PD8bstr4,  PD8bstr5,  PDSbstrb,  PD86str7, 

PD8bstr8:  st ring |25S] ; 

PD8bstr9:  strmg(bO); 

inf l le, out  file: text ; 

LTVar:real; 

t : integer; 

begin 

for  t:  =  I  to  numberOfQt  is  do  begin 
gotoXY(l,3) ; 
write! 'Quarter  *  ',t); 
assign  ( inf i le. 'pd82in . f l 1 ' ) ; 
reset  I  inf i le) ; 
readdnf  l  le,PD82strl  .  PD82str2.  PD82str3,  PD82str4,  PD82str5,  PD82strb, 

PD82str7,  PD82str8); 
close  ( inf l le) ; 
B023D: =f rest  1 1 1 :  (current  quarterly  forecast) 
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A023B:  =mej*nDemand; 
if  t  -4  then  begin 

A023B: =  (observ It -4  I +observ ( t-3  ) +observ It -2) +observ [t-1 1 ) /4; 
end  else  if  t  =  4  then  begin 

A023B:=  (observ[t-J  |  *obsei-v  ( t -2  ] +observ  ( t  -  1  ]  )/3; 
end  else  if  t  =  3  then  begin 

A023B:=( observ ( t -2 1 +observ [ t-1 | ) /2; 
end; 
if  A023B  ■=  0.0  then  A023B:=1.0; 

strTemp:=copy (PD82str2,4b,  15)  ;   BO  1  lA:=Sti  ingToReal  (StrTemp)  ; 
B023C:=B011A'B023D; 
PPV:=B023C; 

delete  ( PD82str2 , 1 , 15) ; 
insert  (NumToSt ring (A023B)  ,P[)82str2,  1 )  ; 
delete  (PD82str2, 121 , 15) ; 
insert  (NumToSt ring (B023D) ,PD82str2, 121) ; 
delete  ( PD82str2, 10b, 15)  ; 
insert  (NumToSt r l ng (B023C) ,PD82str2, 10b)  ; 
delete  (  PD82st  r5  ,  91  ,  15)  ; 
insert  (NumToSt ring ( PPV) , PD82st r5 , 9 1 ) ; 

M:=mkCodeArry [t ] ;  (current  mark  code) 

delete  (PD82str4 , 24 1 , 15 ) ; 
insert  (NumToSt ring (M) , PD82st r4 , 241 ) ; 

if  (mkCodeArry [ t )  =  2)  or  (mkCodeArry [ t ] =4 )  then  begin 
LTVar:=1.57'B011A; 

B019A:=B011A' ( sqi (mad(t ] ) ' 1 . 57) + ( sqr ( f rest (t] ) ) 'LTVar; 
end  else  begin 

if  abs(B023C).  ERROR  then  B023C:=0.0; 
if  B023C=0.0  then  begin 

B019A:=0.0 
end  else  begin 

BO  1 9A : =COEFF2 ' exp ( POWER2 • 1 n ( B023C) ) 
end; 
end; 

delete  ( PD82str2 , 7b , 15) ; 
insert  (NumToSt r ing (BO 19A) , PD82str2 ,7b)  ; 
if  mkCodeArry [ t ]  =  0  then  begin 

BRLDC:=3; 
end  else  begin 

if  prbBrkPt  =  0  then  begin 

BRLDC:=5; 
end  else  begin 

if  B023C  .  prbBrkPt  then  begin 

BRLDC:=4; 
end  else  begin 

BRLDC:=5; 
end; 
end; 
end; 

delete  (PD82str2, lb, 15)  ; 
insert  ( NumToSt r ing I  BR LDC) ,PD82str2, lb)  ; 
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assign  lout  file, 'pd82in. f 1 1 ' ) ; 

rewi 1 te  (out  f  i le) ; 

wi  1  tfin  lour  f  i  ie,PD82strl  ,  PD82sti2,  PD82stiJ,  PD82str4  .  P[)82str5,  PD82st.ro, 

PD82sti7,  PD82str8); 
close  (out  file) ; 
SwapVectors ; 

exec  I'd: \uicp\PPD82KR0.exe' , 'd:\uicp  pd82in. fil  pd82out.fil  '  I; 
SwapVectors; 

if  DosErroi  -  •  0  then   begin 
wi  1 1  e  1  n ; 
Sound(220) ; 
delay  U00); 
NoGound; 

wiiteln  ('Dos  error  #',  DosErroi); 
HitToCont; 
end; 

assign  I inf i 1 e , ' pdB2out . f i 1 ' ) ; 
reset  ( inf ile) ; 
read( inf ile. PD82sti 1 ,  PD82str2,  PD82strJ,  PD82str4,  PD82str5,  PD82strb, 

PD82str7,  PD82str8); 
close  ( inf l le) ; 

strTemp:=copy (PD82str7, lib, 15) ;  B01 9 : =St ringToReal (StrTemp) ; 
ROLevelAl  l-y  (t  1  :=B019; 

strTemp:=copy (PD82str7 ,226, 15) ;  B021 : =St ringToReal (StrTemp) ; 
EOOAlly [t) :=B021; 

strTemp:=copy (PD82str7 ,121,15);  BRLDCU: =StringToReal (StrTemp) ; 
if  PDDataType  =  '1'  then  begin 
InitPD8bFi le; 
SwapVectors; 

exec  I'd: \uicp\PPD8bKR4.exe' , 'd: \uicp  pd8bin. fil  pdSbout.fil  '  ); 
SwapVectors; 

if  DosErroi  -  >  0  then   begin 
wr 1 1  e 1 n ; 
Sound (220) ; 
delay  ( 300) ; 
NoSound; 

writeln  ('Dos  error  tt '  ,  DosErroi); 
HitToCont; 
end; 

assign  { inf ile, *pd8bout . f i 1 ' ) ; 
reset  ( inf  i le) ; 
readlinf lie, PD86strl ,  PD8bstr2,  PDSbstrJ,  PD8bstr4,  PD8bstr5,  PD8bstrb, 

PD8bstr7,  PD8bstr8,  PD8bstr9); 
close  ( inf l le) ; 

strTemp:=copy (PD8bstr8, lbb, 15) ;  SSADDBO|t ] : =St ringToReal (StrTemp) ; 
StrTemp: =copy(PD8bst r8, 181,15);  SSADDlt ) : =St ringToReal (StrTemp) ; 
StrTemp: =copy (PD8bstr8, 19b, 15) ;  SSSMA(t )  : =St ringToReal (StrTemp) ; 
end; 
end; 
end; 
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procedure  Compute ERR (var  ROLevelArry , EOQArry , f rest ,  Mad, ERRArry : quartet Ai ray ; 
var  mkCodeAl ry :qt l IntAl ray ; 

vai  qt  1  , OHCun  ,di  sPosals,di spo sal Count ,qtrDi spose: integer; 
ERRTypetchai ; 

un 1 1  Price , orderCost , holdFrac, shortCost,salvRate, 
PLT,obsolRate,discRate,numYrsERR,mi 1  Essen t :real ) ; 

vai  Wl I ,WI . ERR. TZero. dummy: real ; 

pStockOut ,Z,LTD, LTVar. Sigma LTD, pdfZ, probShort , expShort : leal ; 
fDblPi  lmeOfT,  f  PnmeOfT,Tn,  Tnl  , l , k , P, F, R, Q,C, Ps,M, t ,del ta :  real; 

begin 

case   ERRType   of 

'0':    begin         {no  disposal) 
ERR:=OHCuri  ; 

ERRArry  (qtr)  :=ERRArry  (qtii    +    0; 
end;       {    case    0} 
'  1  '  :    beg  in  ( u l cp ) 

Wl  I  :  =    4     •     frcst  (qtr)  ; 
Wl  :=    YRSERR    '    Wl  I ; 
if    Wl     •   MINERR    then    ERR:=WI 
else    ERR:=MINERR; 

ERRArrylqtr)  := ERRArry (qtii    +    YRSERR; 
end;       {case    1} 

'2':    begin      {net    ben} 

if    (frcst [qtii    ->   0)    and    ( EOQArry [qti]    -.0)    then   begin 
TZero: =( (unitPrice    -    lunitPrice    *    salvRate)    + 

lorderCost    /    EOQArry [qtr] ) )    /    (unitPrice    •    holdFrac))    + 
(EOOAiry [qtr]    /    (8    •    frcst {qtr ])) ; 
ERR:=TZero    '    4    •    frcst |qtr] ; 
ERRAri-y  [qtr)  :=ERRArry  Iqtr]    +   TZero; 
end      (if) 
else   begin 
ERR : = 1 ; 

ERRArry  [qti  ]  :=ERRArry  Iqtrl    +    0; 
end;         {else} 
end;         {case   2} 
1 3 ' :    begin      {mod   nb) 

pStockOut :  =  IholdFrac'umtPrice)  / 

( (holdFrac* unit Price) + (short Cost *milEssent) ) ; 
Z : =Z I nv ( pSt  ockOut ) ; 
LTD:=frcst (qtr) 'PLT; 

if    (mkCodeArry (qtr)    =    2)    or    ImkCodeArry Iqtr ] =4)    then   begin 
LTVar: =1.57 'PLT; 

sigmaLTD:=sqrt (PLT' ( sqr (mad (qt r] ) *  1 . 57 ) * ( sqr ( frcst [qtrl ) ) 
•LTVar)  ; 
end  else   begin 

if    absl LTD)- ERROR    then    LTD:=0.0; 
l f    LTD=0.0    then    begin 


sigmaLTD:=0.0 
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end   *- 1  se   beg  i  n 

9igmaLTD:=sqrt IC0EFF2 'exp ( P0WER2 ' lnlLTI 
end; 
end; 

pdfZ:=ZPdf (Z)  ; 
probShort : =utNormal (Z) ; 

expShort : = (LTD    -    ROLevelArry [qt r) ) 'probShort    +    sigmaLTD'pdfZ; 
if    If rest [qtr]    ■    ■   0)    and    ( EOOArry  (qt r ]    -  -0)    then   begin 
TZero:=  luni t Pi  ice' ( 1-salvRate) ) / I  uni  t  Pnce'holdFrac)    + 
EOOAny  (qtr]  /  1 2  * 4  *  frcst  [qtr] )    + 
(orderCost+shortCost 'expShort )  / 
(EOQArry (qtr]  "uni  t  Pnce'holdFi  ac)  ; 
ERR: =TZero*4 ' frost [qtr] ; 
ERRAi ry [qt i ] :=ERRArry (qti  ]    ■►   TZero; 
end         (if) 
else   begin 
ERR : = 1 ; 

ERRArry  [qtr]  :=ERRArry  [qtr]    ■►    0; 
end;         [else] 
end;       [case   3} 
'  4  '  ;    beg  i  n 

i:=infRate;  k: =discRate;  P:  =umt  Price;  F:=holdFrac; 

0:=EO0Arry [qti ] ;       R : =4  * f rest (qt r ] ;         C: =orderCost ;  del ta : =90000; 

Ps: =uni t Price' sal vRate;  M: =4  *  f test (qt r] 'numYi sOH; 

if    (frcstlqtr]    •■    0)    and    (EOOArry [qtr]    -  -   0)    then   begin 
t :*( (unit Price    -    (unit  Price    '    salvRate)    + 

(orderCost    /    EOOArry (qtr ]) )    /    (unitPrice    *    holdFrac) )    + 
(EOOArry [qtr]    /    (8    •    frcst [qtr] )) ; 
Tn:=t ; 

dummy: = (expl ( (i-k)  *Q) /R) -1)  ,• 
f  Dbl  PrimeOfT:  =1 ; 

while    (delta    -0.01)    and    (dummy   ->   0)    and    (Tn    .   ERROR) 
and    (abs( f DblPrimeOfT)     »   ERROR)    do   begin 

fPrimeOfT:=( (P'F'R)/(2'k)-(P'F't'R)/2) »exp(-k»t)+ 

l(P'F'Q)/2+(P*0'(i-k)+C'(i-k))/ 
(exp(  (  (i-k)  '0)/R)-D  )  'expl  (i-k)  't) 
-Ps'R- (P'F'R)/(2'k)  ; 

fDblPrimeOfT:=P*F'R* ( (k't-l)/2) 'exp(-k't)    + 

( [P'F'O' (i-k) )/2+(P*Q'sqr(i-k)+C«sqr(i-k) )/ 
lexpl  ((i-k)«Q)/R)-l))*    expl  li-k)  U)  ; 

Tn l:=Tn-fPr imeOfT/f DblPrimeOfT; 

delta:=abs(Tnl-Tn) ; 

t : =Tn 1 ; 

Tn : =Tn 1 ; 

dummy := (exp( ( (i-k) *Q) /R)-l) ; 
end;       (whi  le) 

if  Tnl  *  ERROR  then  begin 
ERR:=Tnl '4' f lest (qtr]  ; 
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ERRArry [qtr] :=ERRArry (qtr)  +  Tnl; 
end   (if) 
else  begin 
ERR :  =1  ; 

ERRArry  (qtr)  :=ERRArry  Iqtl  ]  +  0; 
end;    (else) 
end   (if) 
else  begin 
ERR:=1; 

ERRArry  (qtr)  :=ERRArry  (qtr]  +  0; 
end;    (else) 
end;      (case  4) 
' 5 ' :  beg  in     { t  rad) 

TZero:=ln  (  IsalvRate'  (discRate+obsolRate)  +storRate'  (  1  -obsolRate)  ' 
( 1+discRate)  )  /  IdiscRate+obsolRate+storRate" 
( 1 -obsolRate) ' ( 1+discRate) ) ) /In ( 1 1 -obsolRate) / 
( 1+discRate) ) ; 
ERR: =TZero'4' f rest (qtr I ; 
ERRArry [qtr] :=ERRArry [qtr]  +  TZero; 
end;    (case  5} 
' 6 ' :  begin     ( fixed) 

ERR:=numYrsERR*4' frcst [qtr] ; 
ERRArry [qtr] :=ERRArry  (qtr]  +  numVrsERR; 
end;   (case  6) 
end;   (all  cases) 
if  ERR  •  MINERR  then  ERR:=ERR 
else  ERR:=MINERR; 
if  OHCuri  •  ERR  then  begin 

di sposalCount ; =disposalCount  +  1; 
disPosals:=disPosals  ♦  (OHCurr  -  round(ERR)); 
qtrDispose:=OHCui r  -  round (ERR), • 
OHCurr:=round(ERR) ; 
end;   (if) 
end;   (computeERR) 


procedure  SDR (var  OSHeap,  BOHeap:  PnorityQueueType; 
var  wklyObserv : week lyArray ; 

var  EOQArry , ROLevelArry , observe, frcst , ERRArry : quart erArray ; 
var  numberOfOt rs , ini t Inv, orderCount : integer; 
var  disPosals.di  sposalCount : l nteger ; 

meanDemand, rat 10PLTSTDMU, unit  Price, orderCost .holdFrac: real ; 
short Cost , salvRate, PLT, obsolRate, discRate: real ; 
var  numVrsERR.numVrsOH: real ; 
mi lEssent : real ; 
var  TWUS,endOH,endOS: integer; 
var  ADDBO, ADD, SUA, Invest : real ; 

wkDataType,qt rDataType, out put Type, ERRType, anal Indtype: char; 
var  tot Cost , hoi dTC.orderTC, short TC, sal vTR: real ; 
var  totCostArry  ,  holdTCArry  ,  orderTCArry  ,  shortTCAri-y  , 
salvTRAri"y,  investQt  r  ,qt  rSMArquarterArray )  ; 
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vai   wklyBO.wklyOS:  datai  ~cord; 

.initBO.amtRecv,  i  eceipt  . wk lyDemand .date,  initOrders,  initOS:  integei  ; 

wk  .  qt  i  ,  sizeOS,  si zeBO.qt rtu  spose.  numberOS, day :  integer; 

1  andnoitu,  1  andPLT.wkly Invest ,  qt  r  Invest ,  rep  Invest ,  reorderTime:real ; 

f 1 ag 1 , f 1 ag2 : boo  1 ^An; 

BOFil I .dmdTot .OSTot .OSCuri ,BOTot .BOCurr .OHcurr .OHPrev, IPcurr, IPPrev: integer; 

cumBO,  cumRO,  cumHC,  cumSR,  orderlntei'val :  rea  1  ; 

Start Int , int Length; real ; 


begin 

SetSeed I seedArry [numberRep] ) ; 

OSCuri :=0; 

OSTot :=OSCuri  ; 

lnit Inv:=round(numYi sOH ' f rest  I  1 ]  M )  ; 

Initial lzePriori tyQueue (OSHeap) ;    Initial izePrion  tyOueue  (BOHeap) ; 

if    anallndType    =    '0'    then   begin 

mit  Inv;=round|EOOArry  I  1 1    +    ROLevelArry  1 1  1  -  f  rest  ( 1  ]  '  PLT)  ; 
numberOS:=round(PLT/ (EOOArry  (U/frcst ( 1  ]  )  )  ; 
if    numberOS    «  >    0    then    begin 

for    i:=    1    to   numberOS  do   begin 
wklyOS.Oty:=round(EOQArry ( 11); 
if     (PLT      -    I l-l)     •     (EOOArry [l)/frcst (1) ) )     •    0    then   begin 

day:=round(PLT      -    li-1)     '     ( EOOArry 1 1 )/ f rest  1 1 1 ) )     '13    +    1; 
wklyOS. Week: =day  ; 

InsertPriorityQueue(OSHeap,wklyOS) ; 
OSTot :=   OSTot    +  wklyOS.Oty; 
OSCurr:=   OSCurr    ♦   wklyOS.Qty; 
end;       (if) 
end;       { for) 
end;       (if) 
end;     (if    analind) 

if    IqtrDataType    =    '1')    or    (wkDataType   =    '1')    then   begin 
writeln (output  fi le) ; 
writeln  (output  file, 'SDR   Data  Initial    OH    Inv:=    '.mitlnv,'       Initial    On   Order: 

wiitelnt out put  file,' 

end; 

OHCurr: =initlnv; 
OHPrev: =OHCurr; 
BOCurr:=0; 
replnvest : =  0.0; 
BOFll 1 :=  0; 
TWUS:=  0; 
ADDBO:=  0 ; 
ADD:=  0; 


.OScurr) 


cum  BO: 

=  0 

0 

cumRO: 

=  0 

0 

cumHC: 

=  0 

0 

cumSR  : 

=  0 

0 

dmdTot 

:  =  0 ; 

SMA:  = 

0; 

BOTot  : 

=  0 
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disposals: =0; 

di  sposal Count :  =0 ; 

I PCurr : =OHCurr+OSCurr ; 

IPPrev:  =IPCurr; 

for  qtr:  =  1  to  numberOfOtrs  do  begin 
if  wkDataType  =  '1'  then  begin 
writeln (output  fi le)  ; 

wntelnloutput  f  1  le.  'OTR   WK     REC    DEM      BO    OS     OH    IP   ORDCNT   OST  BOTOT   TWUS ' ) ; 
end; 

qtr Invest : =  0.0; 
qtrDi  spose;  =  0; 
wklylnvest:=  0.0; 
if  ( ana  1 1 ndType  =  ' 1")  and  (qtr  =  1)  then 

ComputeERRIROLevelArry ,EOQArry,  f  rest.  Mad,  ERRArry  .mkCodeArry  ,qtr , 
OHCuri , disPo sals, disposal Count , qtrDi spose, ERRType , 
uni t Price, orderCost , ho ldFrac, short Cost , salvRate, PLT, 
obsolRate,discRate,numYi sERR ,mi 1  Essen t ) ; 
if  (anallndType  =  '1')  and  (qti  •-  •    1)  then  ERRArry  [qtr  ]  :  =0; 
if  (((qtr+1)  mod  2)  =0)  and  (anallndType  =  '0')  then 

ComputeERR  (ROLevelAri-y ,  EOQArry ,  f  rest  ,Mad,  ERRArry , mkCodeArry ,qti  , 
OHCurr, disposals, disposal Count , qtrDi spose, ERRType, 
unit  Price, orderCost , ho ldFrac, short Cost .salvRate, PLT, 
obsolRate.discRate, numYrsERR.mi 1  Essen t ) ; 
if  (((qtr+1)  mod  2)  <>  0)  and  (anallndType  =  '0')  then 

ERRAri-y  (qtr]  := ERRArry [qtr- 1  ]  ; 
for  wk:=  1  to  13  do  begin 

wkly Demand: = round (wklyObserv  [date]  )  ; 

dmdTot:=  dmdTot  +  wklyDemand; 

receipt : =0; 

aint  Recv:  =0; 

amtBO:=0; 

wklyBO.Qty:=0; 

wk  1  y  BO .  Wee  k :  =da  t  e  ; 

wklyOS.Qty:=0; 

f lagl:=FALSE;  f  lag2  :  =FALSE; 


if  not  ( EmptyPriori tyOueue (OSHeap) )  then  begin  (receive] 

repeat 

if  CurrWeek (OSHeap)  =  date  then  begin 
amtRecv:=ExtractOty (OSHeap) ; 
receipt : =amtRecv; 
OSCurr:=  OSCurr  -  amtRecv; 

while  (amtRecv  >  0)  and  not  ( EmptyPnori  tyOueue  (BOHeap)  )  do  begin 
if  CurrQty (BOHeap)  *  =  amtRecv  then  begin 
amtBO: =CurrOty (BOHeap) ; 
amtRecv :=  amtRecv  -  amtBO; 
BOCurr:=  BOCurr  -  amtBO; 
BOFill:=  BOFlll  +  amtBO; 
TWUS:=  TWUS  +  (amtBoMdate  -  Ext ractWeek  ( BOHeap)  ))  ; 
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end  else  begin 

BOHeap. HeapAri  ay  [  1 )  .Qty  :=  BOHeap.  HeapAri  ay  1 1  i  .  Qty  -  amtRecv; 
TWUS:=  TWUS  +  ( amt Recv • idat e  -  BOHeap. HeapArray I  1 ] .Week) ) ; 
BOCurr:=  BOCurr  -  amtRecv; 
BOFill:=  BOFill  +  amtRecv; 
amtRecv :=  0; 
end;   (if) 
end;   (while) 
OHPrev:=OHCurr; 
OHCurr: =OHCurr  +  amtRecv; 
end; 

if  EmptyPnorityOueue(OSHeap)  then  flag2:=  TRUE 
else  if  currWeek(OSHeap)  <>  date  then  f lagl : =TRUE; 
until  flagl  or  flag2; 
end;  { l f    leceive } 

if  wklyDemand  -  0  then  begin  (issue) 

if  wklyDemand  *  OHCurr  then  begin 

wklyBO.Qty:-  wklyDemand  -  OHCurr; 

OHCurr :=0; 

Insei tPi l or l tyOueuel BOHeap, wkly BO) ; 

BOTot:=BOTot  +  wklyBO.Qty; 

BOCurr: =BOCurr  +  wklyBO.Qty; 
end   (if) 

else  OHCurr: =  OHCurr  -  wklyDemand; 
end;   (if   i ssue) 

IPPrev:=IPCurr;  (order) 

(  if  wk  =  U  then  begin  )  (for  quarterly  SDR) 

IPCurr: =  OHCurr  +  OSCurr  -  BOCurr; 
if  IPCurr  <=   ROLevelArry [qtr]  then  begin 

wklyOS.Qty:=round(ROLevelArry [qtr]  +  EOQArry  [qt r) )  +  BOCurr  - 

! OHCurr  +  OSCurr) ; 
randnorm : =    Norma  1 ; 

iandPLT:=abs(PLT+(randnorm'ratioPLTSTDMU'PLT) ) ; 
if  randPLT  ■  MAXPLT  then  begin 

iandPLT:=MAXPLT; 
end  else  if  randPLT  •  MINPLT  then  begin 

randPLT: =MINPLT 
end; 

wklyOS.Week:=date  +  round ( randPLT* 13 )  +  1; 
InsertPriorityQueue(OSHeap,wklyOS) ; 
OSTot :=  OSTot  +  wklyOS.Qty; 
OSCurr :=  OSCurr  +  wklyOS.Qty; 
orderCount : =  orderCount  +  1; 
end;   (if) 

(  end;)  (for  quarterly  SDR) 

if  wkDataType  =  ' 1'  then  begin 

writeln (output  f i le, qtr: 3, date: 5, receipt : 6, wkly Demand: b, BOCurr: b , 

OSCurr: b, OHCurr: b, IPCurr: b, orderCount :b, OSTot : b , BOTot :b,TWUS:b) 
if  (outputType  =  ■ 1")  and  ( (wk  mod  13)  =  0)  then  begin 
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HltToCont  ; 

wri teln (output  fi le) ; 
end;   (if) 
end; 

{test  code  only) 

(  sizeBO:  =Si  zePnoi  1  tyQueue  (BOHeap)  ; 
sizeOS:=SizePri  on  tyQueue  (OSHeap)  ; 

wnteln  (output  file, 'BO  0  Wk:  '  ,  currWeek  (BOHeap)  :  3  ,  '   BO0  0TY:  '  ,  currOty  (BOHeap)  ;  J  , 
1  Sz:  ',sizeBO:J,  '   OS  0  Week:  '. currWeek (OSHeap) : i  , '   OSQQTY:  '. 
currOty (OSHeap) :3 , '  Sz :  '.sizeOS); 
wri teln (output fi le) ;  ) 

receipt : se- 
date: =date+l  ; 
wklylnvest:=  wklylnvest  +  OSCurr  +  OHCurr; 

cumBO:=cumBO  *  ( ( wkTWUS/52 ) ' shortCost ) 'exp ( -di scRate/52 'dat e) ; ) 
cumBO:=cumBO  +  ( IBOCurr/52) 'shortCost ) 'expl -di scRate/52'dat e) ; 
cumHC : =cumHC  +  I OHCurr' (holdFrac'umt  Price) /52) 'expl -discRate/52'date) ; 
if  wklyOS.Qty  •  0  then 

cumRO:=cumRO  +  (uni t Price'wklyOS.Qty  +  orderCost ) 'exp ( -discRate/52*date) ; 
end;   ( for  week) 
qtrlnvest:=  wkly Invest/13 ; 
investQtr [qtr]  : =investQtr [qtr]  +qtr Invest; 
replnvest:=  replnvest  +  qtrlnvest; 

cumSR : =cumSR  +  (unit  Price' sal vRate'qtrDi spose' expl -discRate* (qtr-1 ) /4) ) ; 
totCostArry [qtr] : =totCostArry [qtr]  +  cumBO+cumRO-t-cumHC-cumSR; 
holdTCArry [qtr] :»holdTCArry Iqtr)  +  cumHC; 
orderTCArry Iqtr] :=orderTCArry (qtr]  +  cumRO; 
shortTCAri-y  Iqtr)  :  =shortTCArry  Iqtr)  +  cumBO; 
salvTRArry  Iqtr] :=salvTRArry [qtr 1  *  cumSR; 
if  BOFlll  ■  •  0  then  ADDBO: =7 ' (TWUS/BOFl 1 1 ) ; 
if  dmdTot  <  ■   0  then  begin 
ADD: =7' (TWUS /dmdTot) ; 
SMA:=1  -  BOTot /dmdTot ; 
qtrSMAIqtr] : =qt rSMA [qtr ] +SMA; 
end;   (if) 
if  qtrDataType  =  '1'  then  begin 

if  (qtr=l)  or  (((qtr-1)  mod  20  )  =  0)then  begin 
wri teln (output  fi le) ; 

wi itelnloutputfile. 'QTR    DMD    OH     IP    OS    BO   ADDBO   ADD   SMA    INVEST    DISP 
end; 

if  (qtr  •  1)  and  (wkDataType  =  '1')  and  not  I ((qtr-1)  mod  20)  =  0) 
then  begin 

wi l teln(outputfile) ; 

writelnloutputf lie, 'OTR    DMD     OH     IP     OS     BO    ADDBO    ADD    SUA     INVEST    DISP 
end; 
end; 
if  qtrDataType  =  '1'  then 

wri teln (output fi le, qtr: J , observ (qtr) :b: 0, OHCurr: 6, IPCurr: b, 
OSCurr : b , BOCurr : b , ADDBO : 7 : 2 , ADD : 7 : 2 , SMA : 7 : 2 , qt  r I nvest : 9 : 2 , 
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qtrDispose:  t> ,  ERRAny  [qtr) :9:2) ; 
if    (outputType   ■=    '  1")    and    (qt  i  DataType   ='1')    and 

notlqti    =    1)    and    (Mqtr-1)    mod   20)    =    0)    then   begin 
HitToCont ; 

wi  itelntoutputfl le)  : 
end;        (if) 
end;       ( for   qtr) 

Invest  :=    leplnvest/  numberOf  C?t  rs; 
endOH:=OHCurr; 
endOS: =05Cul  l  ; 

totCost  :  =cumBO+cumRO-i-cumHC-cumSR; 
holdTC:=cumHC; 
orderTC:=cumRO; 
shortTC:=cumBO; 
salvTR:=cumSR; 
gotoXYI 1,13); 


(sdr 


procedure  Pri nt Header (prbBrkPt , seedlndex: integer; 

salvRate,numYrsOH, rat loPLTSTDMU.meanDemand, varDemand: real; 

var  output fi le: text ; 

ou t put Type, distrType, ERRType.anal IndType: char; 

outFi leName: string;       runDe script : de script Type; 

nmbrSteps.runbrTrends:  integer; 

stepMul t , trendCoef f , trendPower: changeRealArry; 

st  art  Step,  starTrnd,  endTrnd:  change  I  ntAri"y)  ; 

var  l : integer; 

errUsed.distrUsed, anal Used: string [7) ; 

inf lie: text ; 

Year, Month, Day, Day of week : word; 

C028  :  stringtl]; 

A023B,B010.B011A,B020,B023C,B023D,B055,B057,B058,B061 , B07  3 ,C008C , D025E, 
MSLOD,SCR,TD.TSDRS,V015R,V022,V101A.V102,V103  4,V295:  real; 

PD82strl :  stnng(24] ; 

PD82str2,  PD82str3,  PD82str4,  PD82str5,  PD82strb,  PD82str7, 

PD82str8:  string [255]; 


begin 

distrUsed:  =  '  Normal'; 

if  distrType  =  '2'  then  distrUsed:  =  '  Poisson' 

errUsed:='   UICP  ' ; 

case  ERRType  of 


0' 

errUsed: 

= '    None ' ; 

2' 

errUsed: 

= ' Net  Ben ' ; 

3' 

errUsed: 

='  Mod  NB' ; 

4' 

errUsed 

='  NPV  NB' ; 
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, out Fi leName , ' 


)  ; 


' 5 ' :  errUsed: = '    Trad' ; 
'b':  errUsed: ='  Fix  Yt ' ; 
end;   {case} 
ana lUsed:=* Default ' ; 
case  ana  1 1 ndType  of 

' 1 '  :  anal  Used:  =  ' UserSpc ' ; 
end;   (case} 
if  outputType  =  '2*  then  begin 

wri teln {output f l le, ' 

Get  [late  (Yeai  ,  Mont  h  ,  Day ,  Dayof  week}  ; 

writeln {output  fi le,  '  Date:  '  , Month ,  ' - '  , Day , ' - ' , Yeai ) ; 
end; 

writeln (output  file) ; 

writeln (outputfi le, '  Model:  UICP  -  WILSON  E00  '}; 
writeln (output fi le) ; 

writeln (output  file,'  De script  ion:  '  , runDe script ) ; 
wi l teln (output  fi le)  ; 

writeln (output fi le , '  Initial  simulation  settings   '); 
writeln (output  fi le) ; 

wi i teln (output fi le , '    Number  of  quarters  to  simulate:  ' , numberOfOtrs: 5 

wi i teln ( output f i le, '    Number  of  replications  of  simulation  to  run:  ' , numberOf Reps: 5) 
wri teln (output fi le , '    Random  number  generator  seed  type:  ' ,seedtype); 

if  seedType  =  '1'  then 

writeln (output fi le , '    Random  number  seed  start  index: 
writeln (output fi le, '    Economic  Retention  Model: 
if  ERRType  =  '6'  then 

wri teln (output fi le, '    Number  years  economic  retention  used: 
wri teln (output fi le, '    Initial  Inventory  Type: 
if  ana II ndType  =  '1'  then 

wri teln (output fi le, '    Numbei  years  initial  inventory: 
wi i teln (output f l le, '    Type  of  demand  distribution: 
wi i teln (output  file, '    Mean  Demand: 
wri teln (output  f l le, '    Var  Demand: 
wri teln (output fi le, '    Numbei  of  steps: 
if  nmbrSteps  -0  then  begin 

for  i:=l  to  nmbrSteps  do  begin 

writeln (outputfi le, '      Step:  ' ,i:2, '  Step  Qtr:  ' , start St ep( i ] :5, '  Mult :  ' ,stepMult ( l } : b : 3 } ; 

end; 
end;  {if) 

wri teln (output f l le, '    Number  of  trends:  ', nmbrTrends: 5  )  ; 

if  nmbrTrends  >0  then  begin 

for  i:=l  to  nmbrTrends  do  begin 

writeln (output fi le, '      Trend: ' , l : 2 , '  Start  Qtr:  ' , starTrnd [ l ] : 4 , '  Stop  Qtr:  ' , endTrndf i ] : 4 , 
'  Coef f :  ' , trendCoef f ( i ] :b:3 , '  Power:  ' , trendPower [ 1  ] :b: 3) ; 

end; 
end;  (if) 

wi i teln (output fi le) ; 
if  outputType  =  '1'  then  begin 

HitToCont ; 

clrscr ; 
end; 


' , seedlndex: b) ; 
errUsed) ; 

' ,numYrsERR:b:2} ; 
anal Used) ; 

' ,numYrsOH:b:2) ; 
dist rUsed) ; 
, meanDemand: b : 2) ; 
, varDemand: b : 2) ; 
' , nmbrSteps: 5) ; 
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writeln  (output  fi  le,  '  Initial  parajnetei  settings    '); 
assign  ( inf i le, "pd82in. f i 1 ' ) ; 

reset  Unfile); 

read! inf i le,PD82strl,  PD82str2.  PD82str3.  PD82str4.  PD82str5.  PD82strb, 

PD82str7  ,  PD82st  f8); 
close  ( inf  i le) ; 
C028:=copy IPD82sti  1,5,1); 

StrTemp:  =copy  (  P[)82st  1  2  ,  4  b  ,  15)  ;   BO  1 1A :  =St ringToReal  [EtrTemp)  ; 
sr  iTemp:=copy  ( PD82str2, 91  ,  15)  ;   B02  0  :  =  St  ri ngToRea  1  (StiTemp)  ; 
stiTemp:=copy  [PD82str2,  121,15);  BO  2  3D:  =  St  MngToRe.nl  I  StiTemp)  ; 


=StringToReal (StiTemp) ; 
=StringToReal  (StiTemp)  ; 
=  Sti  mgToReal  (StiTemp)  ; 
=  Sti  mgToReal  (StrTemp)  ; 
=  Sti mgToReal (StiTemp) ; 

=St ringToReal  (StiTemp)  ; 

=St ringToReal (StiTemp) ; 

-StnngToReal (StrTemp) ; 


StrTemp: =copy(PD82sti2.  181,15);  B055: 

st rTemp:=copy  (PD82str2,21 1,15);  B057: 

strTemp:=copy (PD82str2,22b,  15)  ;  B058: 

st rTemp:=copy (PD82str3, 1,15);    B061 : 

strTemp:=copy (PD82str3,31 , 15) ;   B073:= 

stiTemp: =copy  (PD82st l 3 , 7b ,  15)  ;   C008C: 

stiTemp:=copy (PD82sti3, 121,15);  D025E: 

stiTemp:=copy (PD82sti5,31 , 15) ;   MSLQD: 

StrTemp: =copy (PD82str5, 181,15);  SCR: =St ringToReal (StiTemp) ; 

stiTemp:=copy  (Pn82str5,21  1,15);  TD: =St ringToReal  (StrTemp)  ; 

st rTemp:=copy (PD82str5,22b, 15) ;  TSDRS: =St ringToReal (StrTemp) ; 

StrTemp: =copy  IPD82st l 5 , 24 1  ,  15)  ;  VO  15R  :  =St ringToReal  (StrTemp)  ; 

strTemp:=copy (PD82strb, lb, 15) ;   V022 : =St ringToReal (StrTemp) ; 

StrTemp: =copy IPD82strb, 10b, 15) ;  VI 0 1A : =St ringToReal (StrTemp) ; 

stiTemp: =copy (PD82strb, 121 , 15) ;  VI 02 : =St ringToReal (StrTemp) ; 

StrTemp: =copy (PD82strb, 13b, 15) ;  VI 034 : =St ringToReal (StrTemp) ; 

strTemp:=copy (PD82strb, lbb, 15) ;  V2 95 : =St ringToReal (StrTemp) ; 


writeln  I  output fi le) ; 

writeln  (output  fi  le,  ' 

writeln  (output fi le, ' 

writeln  ( output fi le, ' 

writeln  (output fl le , ' 

writeln  (output fi le, ' 

writeln  (output fi le, ' 

writeln  (output fi le, * 

writeln  (output fi le, ' 

writeln  (output fi le, ' 

writeln  (output fi le, ' 

writeln  (output fi le, * 

writeln  (output fi le , ' 

writeln  (output fi le ,'**'*'•*** * 

if  outputType  =  '1'  then  begin 

HltToCont; 

elisor; 
end; 
end;     (print  header) 


Prob  Break  : 

,  PibBrkPt  :8,  ' 

Shelf  Life  : 

■ ,C028, ' 

Reqn  Size   : 

,B073:8:0, 

Unit  Price  : 

,B055:8:2, 

Salv  Rate   : 

.salvRate: 8:2, 

Procui  LT   : 

,B011A:8:2,   ' 

Essent lal   : 

,C008C:8:2, 

Mfg  Set -Up  : 

,B058:8:2, 

Obsol  Rate  : 

,B057:8:2, 

Disc  Rate   : 

,B061:8:2, 

Time  SDRS   : 

,TSDRS:8:2, 

Init  Yrs  OH: 

,numYrsOH:8:2, 

Min  Risk   :  ' ,V022:8:2) ; 
Max  Risk   :  '  ,  VI  02:  8:2)  ; 
Old  Cost   :  ' ,V015R:8:2) ; 
MSLQD      :  ' . MSLQD: 8 : 2 ) ; 

Proc  Meth  :  ' ,D025E:8:0) ; 


Shortage 
R/O  Low 
R/O  Constr 
Stor  Rate 
Time  Pref 
Today  DT 


,V1034:8:2) ; 

,B020:8:2) ; 
1 ,V295:8:2) ; 
1  , SCR : 8 : 2 ) ; 
1 ,V101A:8:2) ; 
'  , TD : 8  :  0  )  ; 


PLT  STD/MU:  ' , rat l oPLTSTDMU: 8 : 0 ) ; 


procedure  Di  splayPDOutput  Ivai   obsei-v,  f rest ,  mad,  EOQAiry,  ROLevelAi  ly , 
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SSADDBO,  SSADD,  SSSMA : quart erAi lay; 

vai   stepIndArry,  trndlndArry  ,mkCodeArry  :qt  1  IntAi  ray  ; 

numberOfQtrs,  mi  t  Inv  ,  repNum:  integer; 

outputType: char) ; 

vai  t : 1 nteger ; 

begin 

wi  1 teln  (output  fi le) ; 

writeln (output f 1 1 e , 'Replication  Number  ' ,repNum) ; 

wri teln (output  fi le) ; 

writeln (output  file, ' PD82/8b  Data' )  ; 

writeln (output  file, ' '); 

for  t:=l  to  numberOfQtrs  do  begin 

if  (t=l)  or  <{(t-l)  mod  20)  =  0)then  begin 

if  (outputType=* 1 ' }  and  (t*l)  then  HitToCont; 
writeln (output  file) ; 

writeln  {outputf l le, ' QTR     OBS   FRCST    MAD      0      R/O   ADDBO     ADD     SMA   MK   GT  TR'); 
end; 

writeln  (output  fi  le,  t  :  3  ,obsen/(t  ]  :  b :  0  ,  frcst  [t  ]  :  8:2,mad[t  ]  :8:2, 
EOQArry  ( t  ]  :  b  :  0  ,  ROLevelAri"y  [  t  )  :  b  :  0  , 

SSADDBO ( t ] : 8 : 2 , SSADD ( t ] : 8 : 2 , SSSMA [ t ] : b : 2 , mkCodeArry [ t ] : 3 , 
stepIndArry [t ] : J , trndlndArry  [ t ) : 3 ) ; 
end; 

writeln  (output  file) ; 
if  outputType=  '1'  then  HitToCont; 
end; 

procedure  DisplayRepStats  (var  ADDBO,  ADD,  SMA,  Invest,  totCost : real ; 

var  orderCount .disposals , disposal Count , endOH , endOS: integer; 
outputType: char  ) ; 
begin 

l f  numbeiRep  =  1  then  begin 
writeln (output  file) ; 

writeln  {output  f l le, '*'•*'*****************•**********************************''*****'*'**''*»  '**'')  ,- 
wr j  teln (output  file, *  Repl i cat  ion   Final  Statistics*  J ; 

writeln (output  file,  '  Num   ADDBO   ADD    SMA   Ords   Invest   EndOH   EndOS   DspCt   TotDsp   TotCost ' ) ; 
end;   (if) 
writeln (output f i le,numberRep: 4 , ADDBO: 7 : 2 , ADD: 6 : 2, SMA: b : 2 , orderCount : b , Invest :8:2, 

endOH:6,endOS:6,disposalCount : b .disposals: 7 , tot cost : 14:2) ; 
if  numberRep  =  numberOfReps  then 

writeln (outputf ile, *************************************** * .*.«..■*..»«  4 . *  4 1  ***.*»»*  * j . 

if  outputType  ='1*  then  begin 
delay (1500) ; 
clrscr ; 
end; 
end; 


procedure  DoStat s (var  currMean , currVar , sampleReal : real ; 
var  sample Int : integer; 
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Veil     conf  lnt  :  1  ~a  1  ; 

numbeiRep: integei ) ; 
vai  sample,  oldMean  ,  oldVar  :  real  ; 

begi  n 

if  sampleReal  =  -<)<)99.0  then  sample : =samplelnt 

else  sample: =sampleReal ; 

oldMean :  =currMean; 

oldVar  :  =cui  1  V.=ii  ; 

if  numbei Rep-  = 1  then  cui rMean : =sample 

else  cuiiMean:=  (I (numbeiRep  -  1)  *  oldMean) +sample) /numbeiRep; 

if  numbeiRep- =2  then  currVar:=  0.0 

else  currVar: =  ( ( (numberRep-2) 'oldVar) ♦ ( (numbeiRep- 1 ) '30R (oldMean) )  - 
( n umber Rep 'SQR  IcunMean]  )  +  SQR  (  sample)  )  /  I  number  Rep-  1 1  ; 

if  numbeiRep  .  0  then  conf!nt:=  1 . lb    '    SQRTIcurrVar/numberRep) 

else  conf lnt : =0 . 0; 
end;   (dost  at s) 


procedure  Di splaySimStat s  (vai  simADDBO, simADD, simSMA . siml nvest . simTotCost , 

simOrderCount , simDisposals, simDisposalCount , 
s lmEndOH , s lmEndOS , c l ADDBO , c i ADD , ciSMA , c l I nvest , 
ci Tot Cost , clOrderCount , ciDi sposal s, 
ci disposal Count , ciEndOH , ciEndOS: real ; 
outputType: char; 

hourl , mi  nut el , secondl , hdSecl , houi 2 , minute2, 
second2 , hdSec2: word) ; 
var   upADDBO, upADD. upSMA , up I nvest , upOrderCount , upDi  sposal s, upDi  sposa 1 Count , 
lwADDBO, lwADD, lwSMA, lwl nvest , lwOrderCount , lwDi sposal s, lwDi sposal Count , 
lwEndOH, lwEndOS. upEndOH , upEndOS: real; 


begin 


upADDBO: ^simADDBO+ciADDBO 
upADD: =simADD+ciADD;  lwADD 
upSMA:=simSMA+ciSMA;  lwSMA 


lwADDBO: =slmADDBO-clADDBO; 
=SlmADD-ClADD; 
:=slmSMA-clSMA; 
upEndOH:=simEndOH+ciEndOH;    lwEndOH: =simEndOH-ciEndOH; 
upEndOS: =simEndOS+ci EndOS;    lwEndOS: =simEndOS-ci EndOS; 
up I nvest :=simlnvest+cilnvest;  lwl nvest :=siml nvest -ci I nvest; 
upOrderCount : =simOrderCount+ciOrderCount ; 
lwOrderCount :=simOiderCount-ciOrderCount ; 
upDi sposa 1 s : = s lmD l sposa 1 s+c l d  i spo  sa 1 s ; 
lwDi sposals: =simDi sposa ls-ciDi sposa Is; 
upDi sposal count : =simDi sposa 1 Count tciDi sposa 1 Count ; 
lwDi sposal Count ; =simDi sposal Count -ciDi sposal Count ; 
if  lwADDBO  ■  0.0  then  lwADDBO: =0 . 0; 
if  lwADD  •  0.0  then  lwADD:=0.0; 
if  lwSMA  •  0.0  then  lwSMA:=0.0; 
if  lwlnvest  .  0.0  then  lwlnvest : =0 . 0; 
if  lwOrderCount  ■-    0.0  then  lwOrderCount :  =0. 0; 
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if  lwDisposals  -  0.0  then  lwDisposals: =0 .  0; 

if  lwDisposalCount  •  0.0  then  lwDisposalCount : =0 . 0; 

if  IwEndOH  ■  0.0  then  lwEndOH : =0 . 0 ; 

if  lwEndOS  •  0.0  then  lwEndOS : =0 . 0 ; } 
writelnloutputfile) ; 

wi i teln  (output  file, '**'****'*********** ' *  *  *  *  * ' 

writeln (output fi le ,' Simulat ion  Final  Statistics'); 


wi i teln (output fi le 
wi i teln (output  fi le 
wi  i teln (output  f l le 
wi itelnfoutputfile 
wi-i  teln  (output  fi  le 
wiiteln (output  fi le 
wi  l teln (output  file 
wri teln (output  file 
wiiteln (output  fi le 
wi  it eln (output  fi le 
wiiteln (output  file 
wiiteln (output  file 
wiiteln (output  file 
wri teln (output  file 
writelnloutputfile 
wi  itelnfoutputfile 
if  outputType  ='1'  then  HitToCont 
end;   (di splaysimstat } 


Final  Means  and  Confidence  Interval  (95%)'); 
Mean  CI  '  )  ; 

simADDBO: 12:2,ciADD: 12:2) ; 
simADD: 12:2.C1ADD: 12:2) ; 
simSMA: 12:2,ciSMA: 12:2)  ; 
simOrderCount : 12 : 2, ciOrderCount : 12:2) ; 
sim Invest : 12 : 2, ci Invest : 12:2) ; 
simEndOH: 12: 2 .ciEndOH: 12:2)  ; 
simEndOS: 12: 2,ciEndOS: 12:2) ; 

simDisposal Count : 12 :2,ciDisposalCount : 12:2) ; 
simDisposals: 12:2, ciDisposals: 12:2) ; 
simTotCost : 12 :2, ciTotCost : 12:2) ; 


ADDBO 

ADD 

SMA 

ORDERCOLJNT 

INVEST 

ENI1ING  OH 

ENDING  OS 

DISPOSAL  COONT 

DISPOSALS 

TOTAL  COST 


Sim  Start  Time    ' , hourl , ' : ' ,minutel , ' : ' , secondl , ' : ' , hdSecl ) ; 
Sim  End  Time      ' , hour2, ' : ' ,minute2, ' : ' , second2 , ' : ' , hdSec2) ; 


procedure   Di spl ayOt rArry s ( var  t otCost Arry , ho ldTCArry . orderTCArry . ERRArry . 

short TCArry  ,  sa  1  vTRArry  :  quart  erAr ray  ; 
numberOfQt is: integer) ; 
VAR  qt r : integer; 
begin 

writelnloutputfile, '**'***'*'*''*'''*'**'*'****• *'**'****'*******'*****'****' 

wiiteln (output  f l le) ; 

wii teln (output fi le, '  Quarter  cummulative  costs  and  years  ERR  for  graphing'); 

wiiteln (output  file) ; 

writelnloutputfile,  '  OTR      TOTAL        HOLD       ORDER        SHORT 

for  qtr  :=  1  to  numberOfQtrs  do 

wi  itelnloutputf  l  le.qt  r:  4  ,  tot  Cost  Any  [qt  r )  :  12  :  2  ,  ho  ldTCArry  (qtr]  :  12:2, 
orderTCArry (qtr) : 12 : 2 , shortTCArry (qt l ] : 12:2, 
salvTRArry [qtr] : 12:2, ERRArry  [qtr] : 10:2) ; 
wri teln (output  fi le) ; 

writelnloutputfile,'  Quarter  SMA  and  Invest  for  steady  state  graphing'); 
wiiteln (output  fi le) ; 

writelnloutputfile,  '  QTR      SMA        Invest'); 
for  qti"  :=  1  to  numberOfQtrs  do 

wri  teln  (output  f  i  le  ,  qtr :  4  ,qt  rSMA  [qt  r  ]  :  12:2,  mvestQt  r  [qt  r]  :  12:2)  ; 
end;    (di splayqt l at  ray ) 

begin      (main) 
textcoloi 1 14) ; 
stop:=FALSE; 
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.  i  rrn  ■■  unt 
run  See  I 
noReal  :— P99 
nolnt :=0; 

randSeedAri  y  I  s^-edAi  i  y  )  ; 
Front  screen; 
Runt ype  (dist rType, out put Type, wkDataType,qti DataType - PDDataType, 

lepStatType, ERRType, arw  1 IndType, numberOfOt is, numberOfWks, numberOf Reps, 
seedlndex, meanDemand, var Demand, numYrsOH , numYrsERR, input  f i le, output  file, 
f rest , mad, seeds, out  Fi leName, runDescript ) ; 
repeat 

rewrite  (output  file); 
simCount : =simCount  +  1 ; 

GetTime (  houi 1 , mi  nut  el ,secondl ,hdSecl ) ; 
foi  number Rep  :=  1  to  numberOfReps  do  begin 
if  seedType  =  ' 1*  then  begin 
if  number  Rep  =  1  then  begin 

for  s:=  1  to  seedlndex  do  cu: rSeed: =GetNextSeed (currSeed) ; 
SetSeed(currSeed) ; 
end   (if) 
else  begin 

currSeed: =GetNextGeed (currGeed) ; 
Get  Seed (currSeed) ; 
end;   (else) 
end   (if) 

else  Set  Seed (seeds ( number Rep) ) ; 

Initial  izeArrays  (observ,  EOOArry ,  ROLevelAri-y  ,  SSADDBO,  GSADD,  SGSMA,  ERRAri-y  , 
stepIndArry ,  t rndlndArry ,mkCodeArry , numberOfOtrs, 
numberOfWks, numberRep,meanDemand, 
wklyObserv,meanDmdArry , varDmdArry ,  totCostArry , 
holdTCArry ,  orderTCArry ,  short TCArry ,  salvTRArry , 
investQti ,qtrSMA) ; 
LoadObserv  (observ  ,  f  rest ,  mad,  wklyObserv  ,meanDmdArry  , varDmdArry  , 

observType.dist  rType, numberOfQt is, numberOfWks, number Rep, 
simCount , trendOn , stepOn , nmbr Steps ,  nmbrTrends, 
meanDemand, varDemand, input  file, seeds, start step, 
startrnd,  endt rnd, stepmult ,  trendcoef f ,  t rendpower ) ; 
if  numberRep  =  1  then  begin 

if  simCount  =  l  then  lmtPDb2File  (prbBrkPt ,  numYrsERR ,  salvRate, 

numYrsOH, rat i oPLTSTDMU, storRate, 
obsolRate.discRate, infRate,mi lEssent ) ; 
PD82Edit (prbBrkPt , unit  Price , PLT, orderCost , holdFrac, 

shortCost , sa 1 vRate , numYrsOH , rat l oPLTSTDMU , numYrsERR , 
storRate, obsolRate,discRate, lnfRate.mi lEssent  J ; 
end; 

l f  numberRep=l  then  Print  Header (prbBrkPt , seedlndex, salvRate, numYrsOH, 

rat l oPLTSTDMU, meanDemand, varDemand, 
output  file, ou t put Type, dist  rType, 
ERRType, ana  1 IndType, out  Fi leName , runDe script , 
nmbrSt  eps , nmbrTrends , st  epMu 1 1 , 
t rendCoef f , t rendPower , start  Step, 
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starTrnd.endTrnd)  . 
Forecast  (observ  ,  f  rest  ,  mod,  stepIndArry,  trndlndArry, 

mkCodeAiry , numberOfQt 1 s , numberRep, unit  Pi  ice) ; 
LoadLevels  I f rest ,  mad.  observ,  EOOArry,  ROLevelAny.  SSADDBO,  SSADD,  SSSMA , 
mkCodeAri-y ,  numberOf Qt rs ,  prbBrkPt ,  meanDemand,  PDDat aType)  ; 

if  PDDataType=' 1 '  then  DisplayPDOutput  (observ,  f rest ,  mad,  EOOArry, 

ROLevelArry,   SSADDBO,  SSADD, 
SSSMA,  stepIndArry,  trndlndArry, 
mkCodeAiry ,  numberOfQt rs,  in  it  Inv, 
numberRep,outputType) ; 
SDR  (OSHeap,BOHeap,wklyObsei-v  ,  EOOArry  ,  ROLevelArry ,  observ  ,  frcst  , 

ERRAi ry , numbeiOfOt rs , mi t Inv , orderCount ,disPosals,di sposal Count , 
meanDemand. rat  ioPLTSTDMU, un 1 1 Price , orderCost .holdFrac, short Cost , 

salvRate,PLT,obsolRate,discRate,numYrsERR,numYrsOH,milEssent , TWUS , endOH , endOS , ADDBO , 
ADD , SMA , I nvest , wkDat  aType , qt  rDat  aType , out put Type , ERRType , ana  1 1 ndType , tot Cost , 
holdTC.orderTC.shortTCsalvTR,  totCostArry , holdTCArry , 
orderTCArry.shortTCArry.salvTRArry,  investQt r ,qti SMA)  ; 
if  repStatType  =  '1'  then  DisplayRepStats  (ADDBO, ADD, SMA, Invest , totCost , 

orderCount , disposals, 
disposal Count , endOH, 
endOS.outputType) ; 
if  numberRep  =  1  then  begin 

simADDBO:=0.0;  simADD:  =f) .  0 ;  simSMA:=0.0;  simlnvest :  =0  .  0; 
simOrderCount : =0 . 0;  simDi sposal s: =0 . 0;  simDi sposal Count : =0 . 0; 
simEndOH:=0.0;   simEndOS : =0 . 0 ;  simTotCost : =0 . 0 ;  simHoldTC: =0 . 0; 
simOrderTC:=0.0;  simShoi tTC: =0 . 0;  simSalvTR: =0 . 0; 
end;   (if) 

DoSt at  s ( s imADDBO , varADDBO , ADDBO , no  I nt , ci ADDBO , numberRep) ; 
DoSt  at  s ( simADD , varADD , ADD , no  I nt , c lADD , numberRep) ; 
DoStats IsimSMA.varSMA, SMA, no  I nt , ciSMA , numberRep) ; 
DoSt at s (simlnvest , varlnvest , I nvest, nolnt.ciln vest, numberRep) ; 
DoStats (SimOrderCount , varOrderCount , noReal , OrderCount , ci OrderCount , 

numberRep) ; 
DoStats ( simDisposals, varDi sposal s,noReal , Disposals, ci Disposal s, numberRep)  ; 
DoSt  a t  s ( s lmEndOH . var EndOH , noRea 1 , endOH , c l EndOH , numberRep) ; 
DoStats (simDisposalCount , varDi sposal Count , noReal .disposal Count , 

ci Disposal Count , numberRep) ; 
DoStats I simEndOS, varEndOS, noReal , endOS, ci EndOS, numberRep) ; 
DoStats (simTotCost .varTotCost , tot Cost ,noInt .ciTotCost .numberRep) ; 
DoStats IsimHoldTC, varHoldTC, ho ldTC.noInt , ciHoldTC, numberRep) ; 
DoStats  (simOrderTC,  varOrderTCorde  rTC.no  I  nt ,  ciOrderTC,  numbeiRep)  ; 
DoStats (simShortTC, varShortTC, shortTC, nolnt , ci Short TC, numbeiRep) ; 
DoStats (simSalvTR, varSalvTR, salvTR, nolnt , ci Sal vTR, numberRep) ; 
end;   (for) 

for  i:=  1  to  numberOfQtrs  do  begin 
qtrSMAI i ] : =qt rSMA [ l ] / numberOf Reps, • 
i nvest 0tr[ i ) : = l nvest Qtr ( i ] / numberOf Reps; 
end;   (for) 

GetTime(hour2,minute2, second2 , hdSec2) ; 
DisplaySimStats (simADDBO, simADD, simSMA. simlnvest , simTotCost .simOrderCount , 
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simDisposals, simDisposal Count . simEndOH, simEndOS, ciADDBO, 
ClADD.ciSMA.ci Invest .ciTotCost , ciOrderCount , ci Disposal s, 
ci Disposal  Count , ci EndOH, ci EndOS, out put  Type, houl 1 . 
minutel , second 1 , hdSecl ,hour2,minute2, second2 , hdSe 
foi    numQti     :=    1    to   numberOfptrs   do   begin 

tot  Cost  Ai  ry  [numpt i ]  :  =tot  Cost  Any  [ numpt r)  /numberOf  Reps; 
holdTCAi ly (numpt  r] : =holdTCArry I numpt r] /numberOf Reps; 
ordei TCArry  InumOt  t  )  :  -orderTCAi  ry  InumOt  l  •]  /numberOf Reps; 
short TCArry InumOt i  ] := short TCArry InumOtr] /numberOf Reps ; 
salvTRAi ry InumOt i ] : =sal vTRAriy I numOt r) /numberOf Reps, • 
ERRAi ly (numpt l ) : =ERRArry [numOt l ] /numberOf Reps; 
end;       I  for) 
Di  splaypt  i  Ai  l  ys  ( t  otCostArry  ,  holdTCArry  ,  orderTCArry  ,  ERRArry , 

short TCArry, salvTRAi ry , numberOfptrs) ; 
close    (output  file); 

RunAga in    (output  file, i unDescript , out put Type, ERRType, stop, 
numYi sERR.outFi leName) ; 
unt l 1    stop; 
textcoloi  1 15) ; 

end.       {main  program  UlCP-Simulator} 
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Unit  TOOLBOX; 


*This  Unit  provides  a  toolbox  of  useful  functions  functions  and 
'procedures  for  data  input. 


type  pd82f ield=st ring [15] ; 

vax       strTemp:pdy2 field; 

f unct ion  Get_Answer : boolean; 

procedure  H 1 tToCont ; 

funct  ion  Get_Integer  ( low, high: integer)  : integer; 

function  Get_Real ( low, high: real ) :real; 

function  NumToString  (var  value: real ) :pd82field; 

function  StringToReal  (var  S:pd82f leld) : real ; 

funct  ion  Get_LongInt  ( low, high: longint ) : longint ; 

Implementat ion 


function  Get_Answer;  (Returns  a  Boolean  result  for  a  yes/no  query) 


vai  Char_In:Char; 

Correct : Boolean; 

begin 

Correct : =False; 
repeat 

Char_I n : =ReadKey ; 
wi 1 te  (Char_In) ; 
case  Char_In  of 
1 Y ' , ' y ' : begin 

wr iteln  ( *  es ' ) ; 
Get_Answer : =True; 
Correct : =True 
end; 
'  N '  ,  '  n  '  :  beg  i  n 

wri teln  ( ' o" ) ; 
Get_Answer : =False; 
Correct :=True 
end; 
else   begin 
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write In; 

Sound (220) ; 

delay  (300); 

NoSound; 

writeln  ('**  Un-recognizable  answer  *'"); 

writeln  ('Enter  Y  or  N, ' ) ; 

writeln  ('Re-enter  your  answer:  ' ) 
end 
end;  (case) 
unt i 1  Coriect ; 
end;  (Get_Answei } 

procedure  Hi tToCont ; 

var  dummy: char; 

begin 

wi"  1 1  e  1  n  ; 

write  ('  Hit  any  key  to  continue  ., 

dummy : =readkey ; 

end; 


(Gets  an  integer  input  between  low  and  high,  prompts  until  one  is  received} 
funct ion  Get_Integei  ( low, high: integer) : integer; 

var  numbeiStrmg:  string[10]; 

error,  numbe rvalue:  integer; 


begin 
repeat 

readln  (numbeiStrmg)  ; 

val  (numberGt r ing,  numberValue,  error); 

if  erroi  <>  0  then  begin 

wr 1 1  e 1 n ; 

Sound(220) ; 

delay  (300); 

NoSound; 

write  ('***  Invalid  number,  enter  an  integer:  ') 
end  else  if  (numberValue- low)  or  ( numberValue »high)  then  begin 

wr  1 1  e 1 n  ; 

Sound (220) ; 

delay  (300); 

NoSound; 

writeln  ('***  Invalid  Range  -  value  must  be  a  positive  integer' 

write  ('between  ' , low, '  and  ',high,'  Enter  number:  '); 

error: =1 ; 

end; 
until  error=0; 
Get_Integei : =numberValue; 
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end;   { f unct ion  J 

{Gets  an  longint  input  between  low  and  high,  prompts  until  one  is  received} 
f unct ion  Get_LongInt  ( low, h lgh: longint ) : longint ; 

var  numberSt r ing:  st r ing [ 1 0  J ; 
error:  integer; 
nuinberValue:  longint  ; 


begin 
repeat 

readln  (numberSt ring)  ; 

val  ( numberString,  nuinberValue,  error); 
if  error  <  >  0  then  begin 
wr l teln; 
Sound (220) ; 
delay  (300); 
NoSound; 

wri te  [  ■ *  *  *  In val id  number ,  enter  an  integer :  ' ) 
end  else  if  (nuinberValue*  low)  or  (nuinberValue  >high)  then  begin 
wri teln; 
Sound(220) ; 
delay  (300); 
NoSound; 
wri teln  ( 
write  { ' between 
error: =1 ; 
end; 
unt i 1  error=0; 
Get_LongInt : =numberValue; 
end;   { f unct  ion} 


Invalid  Range  -  value  must  be  a  positive  integer'); 
low.'  and  *,high,'  Enter  number:  '); 


(Gets  a  real  value  between  low  and  high ,  prompt s  until  one  is  received} 
f unct ion  Get_Real ( low, high: real ) : real ; 

var  Number_Stnng:  st  ring; 
Error : integer; 
Number_Va 1 ue : rea 1 ; 

begin 
repeat 

readln  (Number_String) ; 

val  (Number_St ring,  Number_Value,  Error); 
if  Error  *.  >  0  then  begin 
Sound (220) ; 
delay  (300); 
NoSound; 

writeln  (***You  must  enter  a  valid  real  number**  ' ) ; 
end  else  if  {Number_Value< low)  or  (Number_Value >high)  then  begin 
writeln; 
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Sound (220 ) ; 

delay  I  300)  ; 

NoSound; 

write  In  (•««*  Invalid  Range  -  value  must  be  a  real  value'}; 

write  ('between  ',low:0:l,'  and  ' ,high:0:l,'  Enter  number:  '); 

error: =1 ; 
end; 
unt l 1  Error=0; 
Get_Real : =Numbel_Va 1 ue ; 
end;   (Get_Real) 

function  NumToString  (vai  value: real) :pd82 field; 

const  digits  =  lb; 
decimals  =  8; 

vai  l : integei ; 

5:  string  I  lb )  ; 
begin 

str  (value:digi t s:decimals , S) ; 
for  i : =1  to  lb  do 
if  S(i]  =  '  '  then  S[ l ) :=• 0 ' 

else  if  S[i]  =  '.'  then  delete  (S,i,l); 
NumToString: =  S 
end; 

function  StiingToReal  Ivar  S:pd82f leld) : real ; 

vai  Rl.  R2:  real; 
SI : string [7 ] ; 
S2:stnng[8]  ; 
errorl,  error2: integer; 

begin 
Sl:=copy(S, 1,7); 

S2 : =copy ( S  ,  8  ,  8  )  ; 

vai (31 , Rl .errorl) ; 

vai IS2.R2,eiroi2) ; 

StiingToReal :=R1+IR2/100000000); 

end; 

End.     {Unit    Toolbox} 
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unit    unirand; 


type  seedArryType  =  array   (1..1000]  of  longint; 

vai  seeds , seedArry : seedArryType; 

procedure  SetSeed  ( seed: longint ) ; 

function  GetSeed: longint ; 

f unct ion  Get Next  Seed  ( last  Seed: longint )  : longint ; 

f unct ion  RandomUn 1  form: real ; 

procedure  randseedArry  (var  seedArry :  seedArryType)  ; 

f  unct  ion  Get  Po  is  son  (var  meantJemand:  real )  :  integer; 

function  GetNormal : real ; 

funct ion  GetGeometric (p: real ) : integer; 

f unct ion  GetNegBin (p: real ; s: integer) : integer; 

funct  ion  GetUni formlnt  (high:  integer  J  :  integer; 

function  ZInv  (p: real) : real; 

function  ZPdf  (Z: leal ) : real ; 

funct ion  ut Normal  (Z: teal ) : real ; 

lmplementat ion 

•var  a:  longint ; 

procedure  SetSeed  (seed: longint ) ; 

begin 

a: =seed 
end;  {procedure} 

function  GetSeed: longint ; 
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begi  n 

end;  (pi ocedm e ( 


f unct ion  RandomUni form: rea 1 ; 

const  B2E15: longint =J27bB; 
B2Elb: longint=b55Jb; 
Modlus: longint  =  21474B.Jo47; 
Mult  1  :  longint=i<!  112; 
Mult2: longint=2bl4 i ; 

v.ii  Hi  15  ,  Hi  3  1  ,  Lowl5,  Lowprd, Ov f low, Zi  :  longint  ; 

begin 

Zi :=a; 

Hi 15:=Zi  div  B2E16; 

Lowprd:=(Zi  -  Hi  15  "  B2Elb)  •  Multl; 

Low 1 5 := Lowprd  div  B2E16; 

HiJl:=Hil5  '  Multl  +  Lowl5; 

Ovflow:=Hl3]  div  B2E15; 

Zi : =  ( ( (Lowprd  -  Lowl5  '  B2Elb)  -  Modlus)  + 

( Hi  J  1  -  Ovflow  •  B2E15)  '  B2E1S)  *  Ovflow; 
if  Zi  ■  0  then  Zi:=  Zi  +  Modlus; 
Hi  15:=  Zl  div  B2Elb; 

Lowprd: =  |Zl  -  Hi  15  ■  B2Elb)  •  Mult2; 
Lowl5:=Lowprd  div  B2Elb; 
Hi  J  1 : =  Hi  15  '  Mult2  +  LowlS; 
Ovflow:=  Hl31  div  B2E15; 
Zi :  =  l I (Lowprd  -  Lowl5  •  B2Elb)  -  Modlus)  + 

IHiJl  -  Ovflow  •  B2E15)  •  B2E16)  +  Ovflow; 
if  Zl  •  0  then  Zi:  =  Zi  +  Modlus; 
>i:=Zl; 

RandomUniform:=  12  '  (Zi  div  25b)  +  1)  /  lb77721b.O; 
end; 

function  GetNextSeed  ( lastSeed: longint ): longint ; 

const  M:extended=2147483b47.0; 
j>:extended=715.  0; 
b:extended=1058.0; 
c:extended=1385.0; 

var   Z: extended; 

begin 

Z: =lastSeed; 

if  lastSeed=0  then  begin 
Z:=107j272<U2.0; 
GetNextSeed:=round(Z) ; 
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end  else  begin 

Z:=(A*Z)  /  M; 

Z:  =  (Z-roundfZ-0.5)  )  *M; 

Z:=(B*Z)  /  M; 

Z:  =  (Z-round(Z-0.5)  ) *M; 

Z:=(C'Z}  /  M; 

Z:  =  (Z-round{Z-0.5)  )  'M; 

Get Next  Seed: =round(Z) ; 
end; 
end;    {get  next  seed} 


f unct  ion  Get  Poi  sson (var  meanDemand : rea 1 ) : 1 nteger ; 

vai  alpha, beta,  Ul:real; 
i : integer; 

beg  in 

beta:=l . 0; 
l  :  =  -  1  ; 
repeat 

l  :  =  l  +  1  ; 

alpha: =  exp ( -meanDemand) ; 

Ul  :  =RandomUni  f  oiin; 

beta:=beta*Ul; 
unt 1 1  beta<  alpha; 
Get  Poi  sson : = l 
end; 

f unct ion  Get Normal : real ; 

vai  Ul/U2,Vl,V2/W,Y:real; 

begin 

repeat 

Ul  :  =RandomUm  form; 
U2 :  =RandomUn  i  f orm; 
V1:=2*U1-1;  V2:=2*U2-1; 
W:=sqr (Vl)+sqr (V2) ; 
until  W  •  =  1.0; 
Y:=sqrt ( (-2*ln(W) ) /W) ; 
GetNormal:=Vl*Y; 
end; 

f unct ion  GetGeomet r ic (p: real ) : integer; 

var  U: real ; 

l  :  integer; 

begin 

i  :=0; 
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U:  =RandomUn  1  form; 

win  1 e  not  f U  •  =  p)  do  beg  1 n 

l  :  =  1  +  1  ; 

U  :  =RandomUn l form; 
end; 
Get  Geomet  nc:  =  i  ; 


f  mi  t-  ion  GetNegBin  lp:  real  ;  s:  integer)  :  integer; 


vai    X,  l :  integei ; 

beg  l  n 

X:=0; 

foi  i:=l  to  s  do  begin 

X: =X+GetGeometric (p) ; 

end; 

GetNegBin:=X; 
end; 

f unct  ion  GetUn  i  formlnt  (high:  integer)  :  integer ; 

begin 

GetUni  formlnt : = round (  (high- 1 )  *RandomUni  form) +1 ; 
end; 

function  ZInv  (p: real ): real ; 

vai  t:real; 

beg  in 

t:=sqrt  (-2Mn(p)  )  ; 

ZInv:=t- ( ( 2.5 1 55 1 7+0.802853 *t +0.01 0328 *sqr(t) ) / 

[1+1. 432788 *t+0.  189269 «sqr  (t  ) +0.  0013  08'exp|3Mn  ( t )  )  ] 
end; 

function  ZPdf  (Z: real ): real ; 

.begin 

ZPdf : =0.3 989* exp(- (sqr(Z) 12)); 
end;   {zpdf} 

f unct ion  ut Normal  (Z: real ) : real ; 

type  const ant Arry=  array  (0. . 3 ]  of  real  ; 
vai   PsubJ  , QsubJ  :  constant Arry; 

sumPsubJ,sumQsub.J,RlX,erfX,X:  i  ea  1  ; 

j : integer ; 

begin 

PsubJ[0] :  =242.  ^79551 \   -53175; 
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PsubJIl] : =21. 97 926 1618294 152; 
PsubJ[2]  :=b.99b383488bl91355; 
E'subJ(J)  :=-0.035b098437018153  85; 
QsubJ[0] : =215. 0588758b98bl2; 
QsubJ[l) :=91.1b49054 04514901, • 
OsubJI2) :  =  15. 082797b J  0407787; 
QsubJ[3) :=1. 0000000000000; 
sumPsubJ : =0 . 0 ; 
sumOsubJ : =0 . 0; 
X:=Z/sqrt (2) ; 

if  X  =  0.0  then  X:=0. 000001; 
if  X  ■  0.0  then  x:=abs(X)  ; 
for  j:=  0  to  J  do  begin 

sumPsubJ: =  sumPsubJ  +  PsubJ[j)  *  exp( (2* j ) *  In (X) ) ; 

sumQsubJ: =sumQsubJ  +  QsubJU]  *  exp(  (2*  j  )  *  In  (X)  )  ; 
end;   I  for  I 

R1X: = sumPsubJ /sumOsubJ ; 
el fX:=X'RlX; 

if  Z  »=  0  then  utNormal:=l  -  ((l+erfX)/2) 
else  utNormal :  = (1+erfX) 12; 


end; 

end. 


{Unit   Unirand} 
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unit    PDUnit; 


Inr-i face 

uses  dos,  crt ,  toolbox; 

vai  prbBi kPt  : integer; 

uni  t  Pi  icf  ,  PLT.  orderCost ,  holdFi  ac,  short  Cost  :  real ; 
numYrsERR, sal vRate , numYi sOH,  1  at  loPLTSTDMU  :  real; 
3toi  Rate.obsolRate.discRate,  infRate.mi  l  Essen  t :  real  ; 

procedure  InitPD82File  (vai  prbBrkPt : integer; 

vai  numYrsERR.  salvRate.  numYrsOH,  rat loPLTSTDMU, st orRat e , 
obsolRate,discRate,  infRate.mi  1  Essen t :  real  )  ; 

procedure  PD82Edit(var  prbBrkPt : integer; 

vai  unit  Price,  PLT,  orderCost ,  holdFr.sc, 
short Cost , sal vRate, numYrsOH, 
rat 10PLTSTDMU, numYrsERR , storRate , obsolRate, 
discRate, infRate.mi lEssent : real ) ; 

procedure  In  1 1 Pl>8bFi 1- ; 

Implement  at  ion 

procedure  InitPD82File  (vai  prbBrkPt : integer; 

var  numYrsERR, salvRate,  numYrsOH,  rat 10PLTSTDMU, storRate, 
obsolRate,discRate, infRate,mil Essent : rea 1 1 ; 

vai  AAC,AL,B0b7A,B0b7G,C028,DRLI,DO31C,D125N,ERRI,F024.HQDI ,MARLI , PVPI , RII ,R0, 
YR7POC,Y00bA.Y00bB,EOOIND,PVUI  :  char; 

D120,  FILLER  :  string  [2); 

A023B,BRLDC,B010,B011A.B012F,B019A,B020,B023C,B023D,B023F,B023H,BG,B05  5, 
6055A.BO57.B05 8, BOS8A,B0bl  , B07  0.B07  3  , B093 , B280 ,C008C, DOPTC, DTC, D025E, 
F009.HOD.H0141  , H0142,H014J,H0144,H014  5,H014b.H0147,H014  8,H014  9,H014  10, 
HO  1411, HO  1412, HO  1413, H01414, HO  1415, HO  1416, HO  1417, HO  1418, HO  1419, HO  1420, 
ILR, IMECY,M.MOQOAD,MSLOAD,MSLQD.NRFIDRT,OSQ,PDO,PPV,0DH.RFIDRT,RIYAYABY, 
RGV,  RT,  SCR,  SSOH, TD, TGDRS,  VO 15R,  V01  b, V022,V03  9,  V041R,  V042R  ,  V043R,  V044  , 
V101A.V102,V1034,V108,V295,LILT,LILY,PCR3,Q1B,Q2B,RMNAST,SER,YDR,MNOQAD, 
APSR,ARCI,BOO,BRLCI,BRLDCU,BRLQ,BRPLQ,BRQ,B014A,B019,B019B,B021,B021A. 
ERR . MONDO , OOC I , POC, PPVBNDO, PZO, RCI , RLCI , RPLCI . ROCI , VPSR  :  real; 

PC)82strl:  string  [241; 

PD82str2.  PD82str3,  PD82str4,  PD82str5.  PC>82strb,  Pt)82str7, 

PD82str8:  string(255); 

out  f i le: text ; 
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begin 


(initialization  values} 
AAC:='N';  AL:  =  'N';  B067A: 


'N' 


B0b7G:  =  'N\-  C028:='0';  DRLI:='N';  D0J1C:=' 


D120:= 

1  0  b  '  ; 

)125N:  = 

PVPI:= 

•  Y  '  ;  R  I  1  :  =  '  N  ' 

EOOINI 

:  =  'N' ; 

PVUI:  = 

A023B: 

=  1.0; 

BRLDC: 

=  5.0; 

B010:= 

0.0; 

B011A: 

=  8.0; 

B012F: 

=  0.0; 

B019A: 

=20.0; 

B020:= 

1.0; 

B023D: 

=  1.0; 

B023C: 

=B011A 

'B02JU; 

■;  ERRI:='N';  F024:='  ';  H0DI:='  ';  MARLI:='Y'; 
RO^'N1;  YR7POC:=  '  '  ;  Y00bA:='N';  Y00bB:  =  'N'; 
' ;  FILLER: =' 

{system  requisition  average) 

{basic  reorder  level  distribution  code) 

{contract  prod  lead  time) 

{contract  proc  lead  time) 

{non  cred  group  proc  variance} 
(system  reorder  level  low  limit  qty) 
(gross  sys  demand  end  of  lead  time) 
{gross  sys  demand  during  lead  time) 


BO23F:=0.0;  B023H:=0.0;  BG:=0.0; 

B055:=100.00;  (unit  price) 

B055A:=0.0; 

B057:=0.12;  obsolRate : =B0S7 ; 


(obsolescence  rate) 


B058:=600.0; 

B058A:=0.0; 

B061:=1.0; 

B070:=0. 0; 

B073:=1.0; 

B093:=0.0;  B280:=0.0; 

C008C:=0.5; 


DOPTC:=0.0 
D025E:=0.0 


(manufac  set-up  costs) 


{discount  rate) 


{expected  units  pel  requisition) 


{average  item  essentiality) 


DTC:=0.0; 


(procurement  method) 

F009:=0.0;  HQD:=0.0;  H0141:=0.0;  H0142:=0.0;  H014J:=0.0;  H0144:=0.0; 

H0145:=0.0;  H014b:=0.0;  H0147:=0.0;  H0148:=0.0;  H0149:=0.0;  H01410;=0.0; 

H01411:=0.0;  H01412:=0.0;  H01413:=0.0;  H01414:=0.0;  HO  14 1 5 : =0 . 0 ;  HO  1 4 1 b : =0 . 0 ; 

H01417:=0.0;  HO  14 1 8 : =0 . 0 ;  HO  1 4 1 9 : =0 . 0 ;  H01420:=0.0;  ILR:=0.0;  IMECY:=0.0; 
{mark  code} 

{max  order  qty  attrition  qtrs  demand) 
(max  number  safety  level  qtrs  attrition) 
(max  number  of  safety  level  qtrs  demand) 

{non-parametric  order  stat  qtrs) 

{past  qtrs  demand) 

{proc  problem  var  (mean)} 

{quarters  demand  history} 
RFI£JRT:=0.0;  RI YAYABY : =0 . 0 ; 

RSV:=0.0;  {requisition  size  variance} 

RT:=0.0; 

SCR:=0.01;  St orRate: =SCR; 
SSOH:=0.0; 

TO: =93001.0;  { today ' s  date) 

TSDRS:=0.08;  (time  between  SDR's  in  qtrs) 

V015R:=850.00;  {mark  code  1  and  2  order  costs) 

V01b:=850.00; 


M:=1.0, 

MO00AD 

=  6.0; 

MS LOAD 

=99.0; 

MSLQD:= 

20.0; 

NRFIDRT:=0.0; 

OSQ:=0 

0; 

PDQ:=8 

0; 

PPV:=B023D'B011A; 

ODH:=0 

0; 

[storage  cost  rate} 
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V022:=0.  1;  (mm  risk) 
V039:=0.0; 

V04 1R: =850. 00;  (low  value  annual  demand  order  cost) 

V042R: =1920. 00;  (negotiated  procurement  order  cost) 

V04 3R:=1790. 00;  (advertised  procurement  order  costs) 

V044 :=8000. 00;  (max  unpriced  order  cost) 

V101A:=0.07;  di scRat e : =V1 0 1A;  (procurement  interest  rate) 

V102:=0.35;  (max  risk) 

V10J4:=1000.00;  (shortage  cost) 


V108:=0. 1 

V295: =1.0 
LILT:=0.0 
YDR : =0 . 0 ; 
MNPQAD: =1 . 0;  (min  order  qty  attrition  qtrs  demand) 


(repair  time  preference  rate) 
(reorder  level  constraint) 
LILY:=0.0;  PCR3:=0.0;  Q1B:=0.0;  Q2B:=0.0;  RMNAST:=0.0;  SER:=0.0; 


AP5R:=0.0;  ARC  I 
BRPLO:=0.0;  BRQ 
B021A:=0.0;    ERR 


=0.0;  BOQ:=0.0;  BRLCI:=0.0;  BRLDCU: =0 . 0 ;  BRLQ:=0.0; 
=0.0;  B014A:=0.0;  B019:=0.0;  B019B:=0.0;  B021:=0.0; 
=  0.0;    MONDO:=0.0;    OCCI:=0.0;     POC:=0.0;     PPVBNDO: =0 . 0 ; 


PZO:=0.0;     RCI:=0.0;     RLCI:=0.0;     RPLCI:=0.0;     ROCI:=0.0;    VPSR:=0.0; 

prbBrkPt :=0; 

salvRate:=0.02; 

tat loPLTSTDMU:=0.5; 

infRate:=0.0; 

mi lEssent :=C008C; 

pd82strl:=   AAC  +   AL+    B0b7A+    B0b7G+   C02S+    DRLI+   D031C+   D120+    D125N+    ERRI+    F024< 
HQDI+    MARLI+    PVPI+    RII+    R0+    YR7POC+    Y006A+    Y006B+    EOQINTJ+    PVUI  + 
FILLER; 

P[)82str2:  =   NumToSt  ring  (A023B)  +   NumToString  (BRLDC)  +   NumToString  (B01  0)  + 
NumToString  (B011AJ+   NumToSt  ring  (B012F)  +   NumToSt ring (B0 19A) + 
NumToString (B020)+   NumToSt ring (B023C) +   NumToSt n ng (B023D) + 
NumToString (B023F)+   NumToString (B023H) +  NumToString (BG) + 
NumToString IB055) +    NumToSt ring (B0 5 5A) +   NumToString (B057) + 
NumToString IB058)+   NumToSt ring (B0 5 8A) ; 

PU82str3:=   NumToSt ring (BObl ) +    NumToSt  ring  (B070)  +   NumToSt  ring  (B073  )  + 
NumToSt ring(B093)+   NumToString (B280) +   NumToString (C008C) + 
NumToString  (DOPTO+   NumToString  (DTC)  +   NumToSt  ring  (D025E)  + 
NumToString(F009)+   NumToSt ring (HOD) +   NumToString (H0141 ) + 
NumToStnng(H0142)  +   NumToString (H0143) +   NumToString (H0144 ) + 
NumToSt ring (HO  145) +   NumToString (HO  14b) ; 

PD82str4:=   NumToSt ring  I H0147 ) +   NumToString (H0148) +   NumToSt ring (H0149)  + 

NumToString(H01410)+   NumToString (HO  14 1 1 ) +   NumToSt ring (HO  1 4 12)  + 
NumToString(H01413)+   NumToSt ring (H01 4 14 ) +   NumToSt ring (HO  14 15)  + 
NumToString(H0141b) +   NumToSt ring (H014 17) +   NumToString (HO  1 4 1 8)  + 
NumToSt ring (HO  14 19)  +   NumToSt ring (H01420) +   NumToSt ring ( I LR) + 
NumToSti ing( IMECY) +   NumToSt ring (M) ; 

PD82str5:=   NumToString  (MO00AD)  ♦   NumToSt  ring  (MSLOAD)  +   NumToSt  ring  (MSLOE))  + 
NumToString(NRFIDRT) +   NumToSt ring (OSO) +   NumToString ( PDQ) + 
NumToString (PPV)+   NumToSt ring (ODH) +   NumToSt ring (RFIDRT) + 
NumToString (RIYAYABY)+   NumToSt ring (RSV) +   NumToString (RT) + 
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NumToString! SCR )+   NumToSt ring (SSOH) +   NumToSt ring (TO) + 
NumToString (TSDRS)+   NumToSt  ring  (VO  1  5R)  ,- 

PD82strb:=   NumToSt  ring  I  VO  1 1> )  +   NumToSt  1  ing  (V022)  +   NumToSt  ring  I V039)  * 

NumToStiung(V041R)  +   NumToSt r ing (V042R) +   NumToSt n ng (V04 3R ) + 
NumToString (V044 ) +   NumToSt ring (VI 0 1A) +   NumToSt  rung (VI 02 )  + 
NumToStnng(V1034)  +   NumToString (VI 08) +   NumToString ( V295 ) + 
NumToSt  lung  I  LI  LT)  +   NumToSt ring (LILY) +   NumToString ( PCR3 ) + 
NumToString (Q1B)+   NumToString (Q2B) ; 

P[)82str7:  =   NumToString(RMNAST)+   NumToSt ring ISER) +   NumToString (YDR I + 

NumToString (MN00AD) +   NumToSt ring (APSR) +   NumToSt ring (ARCI ) * 
NumToString (BOO) +   NumToSt ring (BRLCI ) +   NumToSt ring (BRLDCU) + 
NumToString  (BRLO)  +   NumToSt ring (BRPLO) +   NumToSt  i  ing  (BRQ)  -► 
NumToSt ring! BO ] 4A ) +   NumToSt ring (BO  19) *   NumToSt ring (B019B) + 
NumToString (B021 ) +   NumToSt ring IB021A) ; 

PD82str8:=   NumToSt ring! ERR )+   NumToSt ring (MONDO) +   NumToSt ring (OOCI ) + 
NumToSt ring(POC)+   NumToSt ring ( PPVBNDO) +   NumToString ( PZO) + 
NumToString (RCI ) +   NumToSt ring (RLCI ) +   NumToString (RPLCI ) + 
NumToSt r ing (R0CI)+   NumToString (VPSR) ; 

assign    (out f i le , ' pd82in. f i 1 ' } ; 

rewrite    (outfile); 

writelnlout f l le,PD82strl ,  PD82str2,  PD82str3,  PD82str4,  PD82str5,  PD82strb, 
PD82str7,  PD82str8); 

close  (out  file) ; 


end; 


procedure  PD82Edit(vai  prbBrkPt : integer; 

var  unit  Price, PLT, orderCost , holdFrac, 

shortCost .salvRate,  numYrsOH,  rat 10PLTSTDMU, 
numYrsERR, storRate, obsolRate.discRate, infRate, 
mi lEssent : real ) ; 

var  C028  :  st  i  l  ng  1 1  ]  ; 

AO23B.B011A,B020,B023C,B023D,B055,B057,B058,B0bl ,B073 ,C008C,D025E, 
MSLOD,SCR,TD,TSDRS,V015R,V022.V101A,V102,V10  3  4,V295:    real; 

PD82strl:    string [24]; 

PD82str2,    PD82str3,    PD82str4,    PD82str5,    PD82strb,    PD82str7, 

PD82str8:    stnng[255]; 

edit Choice: char; 

done: boolean; 

inf i le, out  file: text; 


begin 


(retrieve  selected  default  valuables  from  file  to  edit} 
assign  ( inf i le, 'pd82 in . f i 1 ' ) ; 
reset  ( inf i le) ; 
readlinf i le, PD82st rl ,  PD82str2,  PD82str3,  PD82str4.  PD82str5,  PD82strb, 
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PD82st  1-7,  PD82stl  8)  ; 
close  ( inf 1 le) ; 
C028:=copy (PD82sti 1,5,1) ; 


St  lTVmi 
sr  rTemp 
st l Temp 
st i Temp 
st i Temp 
st  rTemp 
st  rTemp 
strTemp 
st  rTemp 
st rTemp 
st i Temp 
st rTemp 
st  rTemp 
strTemp 
strTemr 
strTemp 
st rTemp 
strTemp 
strTemp 
strTemp 


=copy (PD82st i  2,46, 15)  ;   BO  1 1A  :  =St  r  lngToRea  1  (StrTemp)  ; 
=copy (PD82str2, 91,15) ;   B020 : =St nngToRea 1 (StrTemp) ; 
=copy (PD82sti2, 121,15);  B023D:  =St  nngToReal (StrTemp) ; 


=  Stl  l  ngToRe.il  (StrTemp:  : 
=StnngToReal  (StrTemp)  ; 
=  St  nngToReal  (StrTemp)  ; 
=StnngToReal  (StrTemp)  ; 
=  StrmgToReal  (StrTemp)  ; 

=StringToReal (StrTemp) ; 

=  St  nngToReal (StrTemp) ; 

=Stri ngToRea 1 ( St  rTemp) ; 


=copy IPD82str2, 181 , 15)  ;  B055: 

=copy(PD82str2,211. 15)  ;  B057:= 

=copy IPD82str2.22b, 15)  ;  B058:  = 

=copy (PD82sti J, 1 , 15)  ;  BObl:  = 

=copy (PD82strJ, 31, 15)  ;  B073:  = 

=copy  IP[)82str3,76,  15)  ;  C008C: 

=copy (PD82str3, 121,15);  D025E: 

=copy (PD82str5,31 , 15) ;  MSLQD: 

=copy IPD82str5, 181,15);  SCR: =St r ingToReal (StrTemp) ; 

=copy(p:)82str5,211  ,15);  TLI:  =St r ingToRea  1  (StrTemp)  ; 

=  copy (PD82str5,22b, 15) ;  TSDRS: =St ringToRea 1 (StrTemp) ; 

=  copy  (PD82str5,241  ,  15)  ;  VO  15R:  =St nngToReal  (StrTemp)  ; 

=copy  (PD82strb,  lb,  15)  ;  V022  :  =St  nngToReal  (StrTemp)  ; 

=  copy  (PD82strb,  10  b,  15)  ;  VI  01A:  =St  nngToReal  (StrTemp)  ; 

=copy  (PD82strb,  121,15);  VI  02  :  =St  nngToReal  (StrTemp)  ; 

=  copy  IPD82strb,  13  b,  15)  ;  VI  03  4  :  =St  nngToReal  (StrTemp)  ; 

=copy  (PD82strb,  lbb,  15)  ;  V2  95  :  =St  nngToReal  (StrTemp)  ; 
umtPnce:=B055;    orderCost :  =V0  15R;    shortCost :  =V1034  ; 
holdFiac:=  B057  ♦  V101A  *  SCR;    mi  1 Essent : =C008C; 
PLT:=  B011A; 


done: =FAL 

3E; 

repeat 

clrsct ; 

wi i teln ( ' 

' 

' '  THIS  SCREEN 

ALLOWS  EDITING 

wn  t  e  1  n  ; 

wr 1 1  e 1 n ; 

wr  1 1  e 1 n  ( 

A. 

Prob  Break  : 

,PrbBrkPt:8,  ■ 

M. 

Min  Risk   :  ' ,V022:8:2) ; 

writeln  ( 

B. 

Shelf  Life  : 

• ,C028, ' 

N. 

Max  Risk   :  ' ,V102:8:2) ; 

wnteln  ( 

C. 

Reqn  Size   : 

,B073:8:0, 

0. 

Ord  Cost   :  ' ,V015R:8:2) ; 

wr  i  t  e 1 n  ( 

D. 

Unit  Price  : 

,B055:8:2, 

P. 

MSLQD      :  ■ ,MSLQD:8:2) ; 

wr  i  t  e 1 n  ( 

E. 

Salv.  Rate  : 

, salvRate:8:2, 

0.   Proc  Meth  :  ■ , D025E: 8 : 0) ; 

wr i t  e 1 n  ( 

F. 

Procur  LT 

,B011A:8:2, 

R. 

Shoitage   :  ' , V1034 : 8 : 2) ; 

wnteln  ( 

G. 

Essential 

,C008C:8:2, 

S. 

R/O  Low    :  ' ,B020:8:2) ; 

writeln  ( 

H. 

Mfg  Set -Up  : 

,B058:8:2, 

T. 

R/O  Constr:  ■ ,V295:8:2) ; 

wr 1 1  e 1 n  1 

I  . 

Obsol  Rate  : 

,B057:8:2, 

U. 

Stor  Rate  :  ' ,SCR:8:2) ; 

writeln  ( 

J. 

Disc  Rate   : 

,B0bl:8:2, 

V. 

Time  Pref  :  ■ ,V101A:8:2) ; 

wn  t  e  1  n  ( 

K. 

Time  SDRS   : 

.TSDRS: 8: 2, 

W. 

Today  DT   :  ' ,TD:8:0) ; 

wnteln  ( 

L. 

Init  Yrs  OH: 

, numYrsOH : 8 : 2 , 

X. 

PLT  STD/MU:  ' ,rat 10PLTSTDMU: 8 : 2) 

wr 1 1  e 1 n  ( 

Y. 

Num  Yrs  ERR: 

,numYrsERR:B:2 

2 

Inflation  Rate:  ' , inf Rate: 5 : 3 ) ; 

writeln; 

wr 1 1  e 1 n  ( 

Hit  ENTER  to 

accept  current  values 

'); 

wr  i  t  e  ( ' 

or  letter  of 

field  to  change 

•); 

edit Choice: =upcase ( 1 eadkey ) ; 
wr l teln (edi t Choice) ; 


157 


case   editChoice   of 
' A '     :     beg  1 n 

wr i  t  e 1 n  ; 

write    ( ' Entei    new   Piobabil lty    Break    Point :     ' ) ; 

PrbBi kPt : =Ger_Integei  (0,20) ; 
end; 
'  B '     :    beg  1 n 

wi  1 teln; 

write  ('Enter  new  Shelf  Life  code:  '); 

readln  (C028); 

delete  <PD82str 1 , 5 , 1 ) ; 

insert  (C028 , PD82st rl ,5) ; 
end; 
'  C  '  :  beg  l  n 

wi  l  teln; 

writeln  ('*'  Information  Only  -  Model  assumes  requisition  size  of  one.  '*'); 

HitToCont ; 
end; 
'[)'  :  begin 

writeln; 

write  ('Enter  new  Unit  Price:  '); 

B055:=Get_Real ( 0 . 0 , 999999. 0) ; 

delete    (PD82str2 , 1 81 , 15) ; 

insert    (NumToStr ing (B055) , PD82str2, 181)  ; 

umtPrice:=B055; 
end; 
'  E '     :    beg l n 

writeln; 

write  ('Enter  new  Salvage  Rate,  fraction  of  unit  cost:  '); 

salvRate:=Get_Real (0.0,1.0); 
end; 
' F '  :  beg l n 

wi  i  t  e  1  n  ; 

write  ('Enter  new  Procurement  Leadtime  Forecast:  '); 

B0 1 1A : =Get_Rea 1(0.0,40.0); 

B02JC:=B011A*B023D; 

delete  ( PD82st r2 , 4b , 15) ; 

insert  {NumToStr ing (B0 1 1A) , PD82str2 , 4b ) ; 

delete  (PD82str2, 10b, 15) ; 

insert  (NumToStr ing (B02JC) ,PD82str2, 106) ; 

PLT:=B011A; 
end; 
'G'  :  begin 

writeln; 

write  ('Enter  new  Average  Item  Essentiality:  '); 

C008C:=Get_Real (0 . 0 , 999999 . 0) ; 

mi lEssent :=C008C; 

delete  ( PD82st r3 , 7b , 15) ; 

insert  (NumToSt ring (COO 8C) , PD82strJ , 7b) ; 
end; 
' H '  :  beg  l  n 
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writeln; 

write  ('Enter  new  Manufact  urer  Set-up  Cost:  '); 

B058:=Get_Real  (  0  .  0  ,  999999 .  0)  ; 

delete  [PD82str2,226, 15) ; 

insert  (NumToSt i ing (B058) , PD82str2 ,22b) ; 
end; 
:  begin 

wi  1 1  e  1  n  ; 

wiite  ('Entei  new  Obsolescence  Rate:  '); 

B057:=Get_Real (0. 0,999999.0) ; 

obsolRate:=B057; 

delete  (  PD82str2  ,  21 1  ,  15)  ,- 

insert  ( NumToSt r l ng (B057 ) , PD82str2,21 1) ; 
end; 
:  begin 

wi i teln; 

a   r~  ['Enter  new  Discount  Rate:  ' ) ; 

B     =Cet_Real (0.0,999999.0) ; 

delete  I PD82st r3 , 1 , 15) ; 

insert  (NumToSt ring (BObl )  ,PD82stiO  , 1 ) ; 
end; 
:  begin 

wr  1 1  e 1 n ; 

write  ('Enter  new  Time  Between  SDRs:  '); 

TSDRS:=Get_Real  (0.0,999999.0)  ; 

delete  ( PD82st r5 , 22b  ,  15)  ; 

insert  (NumToSt ring (TSDRS) , PD82str5 , 22b)  ; 
end; 
:  beg l n 

wri teln; 

write  ('Enter  number  of  years  demand  of  initial  inventory:  '1; 

numYrsOH:=Get_Real (0.0,200.0); 
end; 
begin 

writeln; 

write  ('Entei  new  Minimum  Risk:  '); 

V022:=Get_Real (0.0,1.0); 

delete  (PD82strb , lb ,  15)  ; 

insert  (NumToSt ri ng (V022) ,PD82strb, lb)  ; 
end; 
:  beg i n 

wr 1 1  e 1 n ; 

write  ('Entei  new  Maximum  Risk:  '); 

V102:=Get_Real (0.0,1.0); 

delete  (PD82strb , 12 1 . 15) ; 

insert  [NumToSt ring (VI 02) ,PD82strb, 121)  ; 
end; 
:  beg l n 

wr  i  t  e 1 n ; 

write  ('Enter  new  Mark  I / 1 1  Order  Cost:  '); 

V015R:=Get_Real (0 . 0 , 999999 . 0)  ; 
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orderCost :=V015R; 

delete  ( PD82str5 , 24 1 , 1 5 ) ; 
insert  (NumToSt ring ( VO 15R) , PD82st r5 , 24 1 ) ; 
end; 
begl  n 

wi 1 1 eln; 

write  ('Entei  new  Max  Numbei  of  Quarters  Safety  Level  Demand:  'i; 

MSLOD:=Get_Real  (0.0,999999.0); 

delete  (PD82str5, 3 1 , 15) ; 

insert  I NumToSt l ing IMSLOD) , PD82st r5  ,  3 1 !  ; 
end; 
begin 

wi it eln; 

wiite  ('Entei  new  Procurement  Method:  '); 

D025E:=Get_Real (0 . 0 , 999999 . 0) ; 

delete  ( PD82st r3 , 121 , 15 ) ; 

insert  (NumToString (D025E) ,PD82strJ , 121)  ; 
end; 
begin 

writ eln; 

wiite  ('Entei  new  Procurement  Shoi-tage  Cost:  '); 

V10J4:=Get_Real (0.0,999999.0); 

shortCost :=V10J4; 

delete  (PD82strb , 13b , 15) ; 

insert  (NumToSt t ing (VI 034) ,PD82strb. 13b)  ; 
end; 
begin 

wr 1 1  e 1 n ; 

wiite  (* Enter  new  System  Reorder  Level  Low  Limit  Qty:  '); 

B020:=Get_Real (0. 0,999999.0) ; 

delete  ( PD82st r2 , 9 1 , 15 )  ; 

insert  (NumToString (B020) , PD82str2, 91 ) ; 
end; 
begin 

wr  i  t  e 1 n ; 

wiite  ('Enter  new  Reorder  Level  Constraint  Rate:  '); 

V295:=Get_Real (0 . 0 , 999999. 0) ; 

delete  ( PD82strb , lbb , 15) ; 

insert  (NumToSt ri ng (V2 95) ,PD82strb, lbb) ; 
end; 
begin 

wi  i teln; 

write  ('Enter  new  Storage  Cost  Rate:  '); 

SCR:=Get_Real (0.0, 99999. 0); 

storRate:=SCR; 

delete  ( PD82st r5 , 1 8 1 , 1 5 ) ; 

insei t  (NumToSt ring (SCR) ,PD82str5, 181 ) ; 
end; 
begin 

wnteln; 

write  ('Enter  new  Time  Preference  Rate:  '); 
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V101A:=Get_Real  (0  .  0  ,  99999  .  0)  ; 

dlscRate:=V101A; 

delete  I PD82st rb , 1  Ob . 15) ; 

insert  (NumToSt ring (VI 01A) , PD82strb, 10b)  ; 
end; 
'  W  :  beg  l  n 

wi  i  t  e  1  n  ; 

write  ('Enter  Today' 's  Date  (YYJJJ) :  '); 

TD:=Get_Real (0.0,99999.0); 

delete  (PD82st r5 , 21 1 , 15) ; 

insert  (NumToString (TD) ,PD82str5,21 1) ; 
end; 
'X'  :  begin 

wr  i t  e 1 n ; 

write    ('Entei    PLT   Sigma    to   mu    ratio:     '); 

ratioPLTSTDMU:=Get_Real (0.0,10.0); 
end; 
' Y '     :    beg l n 

wn  teln; 

write  ('Enter  number  of  years  of  economic  retention:  '); 

numYrsERR:=Get_Real (0 . 0 , numYrsOH) ; 
end; 
'Z'  :  begin 

wr  1 1  e 1 n ; 

write  ('Enter  current  inflation  rate:  '); 

infRate:=Get_Real (0.0,1.0); 
end; 

chr(13) :  done:=TRUE 
end; 

until    done=TRUE; 
holdFrac:=B057    +   V101A    +    SCR; 
assign    (out f i le, 'pd82in. f i 1 '  )  ; 
rewrite    (out  file) ; 
writeln (out f i le,PD82strl ,    PD82str2,    PD82strJ,    PD82str4,    PD82str5,    PD82strb, 

PD82str7,    PD82str8); 
close    lout  f i le) ; 
cl  i  scr; 
end; 


procedure    Ini t PD86F1 le; 

var    infile,    out fi le: text ; 

PD82strl :    stnng[24] ; 

PD82str2,    PD82strJ,    P[)82str4,    PD82str5,    PD82str6,    PD82str7, 

PD82str8:    string (255 ] ; 

PD8bstrl:    string (24); 

PD8bstr2,    PD8bstrJ.    PD8bstr4,    PD8bstr5,    PDSbstrb,    PD8bstr7, 
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PD8bstr8:  st r ing ( 255 ) ; 
PD8bstr9:  string[60]  ; 

C003,C001W:string[2] ; 

COOlB,LASTIN,CO01Tl , COO 1T2 , RPR  IN, ONEWAY : char ; 

FILLER: string (5] ; 

D04bD:stnng  [<*]  ;  (NUN) 

BO  1 1A , B073 , FMLTCNT , FMLVEXP , FMLYGRS , FMLYMNM , FMLYSYSORD , FMLYSYSRO , 
FMLYOPAST, FMLYPLT, FMLYRPRSRV, FMLYRTAT , FMLYROSIZ, FSOPPR1 . FSOPPR2. FSOPPR3 , 
FSOPPR4 , FSOPPR5 , FSOPPRb , FS0PPR7 . FSQPPRb . FS0PPR9 , FSOPPR 1 0 , FSQPPR 1 1 , 
FSQPPR 1 2  ,  FSOPPR  1 3  ,  FSOPPR  1 4  ,  FSOPPR  1 5  ,  FSOPPR  1 6  ,  FSOPPR  1 7 .  FSOPPR  1 8  ,  FSQPPR  1  9 , 
F3QPPR20,FSQPPR21 , FSOPPR22 , FSQPPR23 , FSQPPR24 , FSOPPR25, FSOPPR2b, 
FSOPPR27 , FSOPPR28 , FSQPPR29 , FSQPPR30 , FSOPPR3 1 , FSQPPR32 , FWO, B023D, HRZNLNGTH , 
MEANNONZR,B0blB,B019A,B019B,B019C,B021 , B01 9 , B021A ,OPAST, PLTPPR , BO 12F , PPV , 
PPVO, BRLDCU , F0  09 , BO 12E, RSV, SQPPR 1 , SQPPR2 , SOPPR3 . SQPPR4 , SOPPR5 , SOPPRb , 
SOPPR7 , SOPPR8 , SOPPR9 , SQPPR 1 0 , SOPPR 1 1 . SQPPR 1 2 . SOPPR 1 3 , SQPPR 1 4 , SOPPR 1 5 , 
SOPPR 1 6 . SOPPR 1 7 , SOPPR 1 8 , SQPPR 1 9 , SQPPR20 , SQPPR2 1 , SQPPR22 , SQPPR23 , S0PPR24 , 
SQPPR25 ,  SQPPR2b , SQPPR27 , SQPPR28 , SQPPR29 , SQPPR3  0 , SQPPR3 1 , SQPPR32 , 
SYSBO,SYSRCR,A023B,TRPR,TSDRS,B055,F007,ZOBS,EXPDEFRS,EXPDEFRSR, 
EXPDEFSDR, FEXPDEFRS. FEXPDEFSDR. PROJADDBO, PROJADDVRBL, PROJSMAVRBL, 
PROJSSADDBO , PROJSSADD , PROJSSSMA , ROSHRTRND , RQSHRTYR , VLBUYS , VRBLHRSR , 
VRBLHRSQ . UNI TSHRTP . UNI TSSHRTR : rea 1 ; 


begin 

assign  ( inf l le, *pd82out . f i 1 ' ) ; 

reset  ( inf i le) ; 

read( inf l le,PD82strl ,  PD82str2.  PD82str3,  PD82str4,  PD82str5,  PD82strb, 

PD82str7,  PD82str8); 
close  ( inf i le) ; 
C003:=' 1H' ; 
C001B:='  '; 
LASTIN:='Y' ; 

D046D:  =  ' 000000000' ;  (NUN) 

C001T1 :=' 
C001T2:=' 
C001W:=' 
RPRIN:='N' ; 
ONEWAY : = ' N ' ; 
FILLER:^' 

strTemp:=copy (PD82str2,4b, 15) ;   B01 1A : =St ringToReal (StrTemp) ; 
strTemp:=copy (PD82str3,31 , 15) ;   B07  3 : =St ringToReal (StrTemp) ; 
FMLTCNT :=0.0;FMLYEXP: =0.0; ;  FMLYGRS: =0.0; FMLYMNM: =0 . 0 ; FMLYSYSORD: =0 . 0 ; 
FMLYSYSRO: =0.0, -FMLYOPAST : =0.0; FMLYPLT: =0.0; FMLYRPRSRV: =0.0; FMLYRTAT: =0.0, • 
FMLYRQSIZ: =0.0; FSOPPR 1 :=0. 0 ; FSQPPR2 : =0 . 0 ; FSQPPR3 : =0 . 0; FSQPPR4 : =0 . 0 ; 
FSQPPR5 : =0 . 0 ; FSOPPRb : =0.0; FSQPPR7 : =0 . 0 ; FSQPPR8 : =0 . 0 ; FSQPPR9 : =0 . 0 ; 


FSQPPR 10 

=0.0, -FSOPPR 11 :=0.0 

FSOPPR15. 

=0. 0;FSQPPRlb:=0. 0 

FSQPPR20: 

=0.0;FSQPPR21:=0.0 

FSOPPR 1 2 : =0 . 0 ; FSQPPR 1 3 
FSQPPR 1 7 : =0 . 0 ; FSQPPR 1 8 
FSQPPR22 : =0 . 0 ; FSQPPR23 


:=0 

0; 

:=0 

0; 

:=0 

0; 

FSQPPR 14 
FSQPPR 19 
FSQPPR24 


=  0.0 
=  0.0 
=  0.0 
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FSOPPR25:=0.0;FSOPPR2b:=0.  0;  FSOPPR27  :  =0  .  0  ;  FSQPPR28  :  =0  .  0  ;  FSOP?  f 

FSOPPRJO: =0.0; FSOPPR3  1 : =0 . 0 ; FSQPPR 32 : =0 . 0; FWO:=0. 0; 

strTemp:=copy  (PL)82str2,  121,15);  B02JC):  =  St  ringToReal  (StrTemp)  ; 

HRZNLNGTH : =0 . 0 ; MEANNONZR : =0 . 0 ; BOO  IB: =0 . 0 ; 

strTemp:=copy  (Pi)82str2,7b,  15)  ;   B01  <>A:  =St  r  ingToRea  1  (StrTemp)  ; 

B019B:=0.0;B01<>C:=0.0; 

StrTemp: =copy  ( PD82st r7 , 22b .  15)  ;  B021  : =St ringToReal  (StrTemp)  ; 

strTemp:=copy (PD82str7,  1  ^  b  .  15)  ;  B0  1 9 :  =St  ringToReal  (StrTemp)  ; 

B021A:=0.();OPAST:=0.0;PLTPPR:=0.0;B012F:=0.0; 

StrTemp: =copy  I  P[)82st  i  5  ,  <*1  ,  15)  ;       PPV:  =St  i ingToRea  1  I StrTemp)  ; 

PPVO:=0. 0; 

strTemp:=copy (PD82str7, 121,15);  BRLDCU: =St t ingToRea 1 (StrTemp) ; 

F001:=0.0;B012E:=0.0; 

RSV:=0.0; 

SOPPR 1 : =0 . 0 ; S0PPR2 : =0 . 0  ; 

SQPPRJ:=0.0;SOPPR4:=0. 0 ; S0PPR5 : =0 . 0 ; SOPPRb : =0 . 0 ; S0PPR7 : =0 . 0 ; S0PPR8 : =0 . 0 ; 

SOPPR1* :  =0  .  0;  SQPPR  1  0  :  =0  .  0  ;  SOPPR  1  1  :  =0  .  0  ;  SOFPR  1 2  :  =0  .  0  ;  SOPPR  1  J  :=0.  0; 

SOPPR 1 4 : =0 . 0 ; SOPPR 1 5 : =0 . 0 ; SOPPR 1  b : =0 . 0 ; SOPPR 1 7 : =0 . 0 ; SOPPR 1 8 : =0 . 0 ; 

SOPPR  1 1 :  =0  .  0 ;  SOPPR20  :  =0.0;  SOPPR2 1 :  =0  .  0 ;  SOPPR22  :  =0 .  0;  SOPPR2 J  : =0 . 0 ; 

SOPPR24 : =0 . 0; SOPPR25 : =0 . 0 ;  SOPPR2b  : =0.0; S0PPR27 : =0 . 0; SOPPR28 : =0 . 0 ; 

SOPPR29 : =0.0; SOPPR3  0 : =0.0; SOPPR 3 1 : =0 . 0 ; SQPPR32 : =0 . 0 ; 

SYSBO:=0.0;SYSRCR:=0.0; 

StrTemp: =copy [PD82str2, 1,15);    A023B:  =St  nngToReal (StrTemp) ; 

strTemp:=copy ( PD82st r5 , 22b , 15) ;  TR PR  :  =St  nngToReal (StrTemp) ; 

StrTemp: =copy ( PD82st r5 , 226 , 15) ;  TSDRS: =StringToReal (StrTemp) ; 

strTemp:=copy (PD82str2, 181,15);  B0 5 5 : =  St  nngToReal (StrTemp) ; 

F007:=0.0;ZOBS:=0.0; 

EXPDEFRS : =0.0; EXPDEFRSR : =0 . 0 ; EXPDEFSDR : =0 . 0 ; FEXPDEFRS : =0 . 0 ; FEXPDEFSDR : =0 . 0 ; 

PROJADDBO : =0 . 0 ; PROJADDVRBL : =0 . 0 ; PROJSMAVRBL : =0 . 0 ; PROJSSADDBO: =  0.0; 

PROJSSADD: =0.0; PROJSSSMA : =0 . 0 ; ROSHRTRND : =0 . 0 ; ROSHRTYR : =0 . 0 ; VLBUYS : =0 . 0 ; 

VRBLHRSR:=0.0;VRBLHRSO:=0.0;UNITSHRTP:=0.0;UNITSSHRTR:=0.0; 

(create  PD8b  input  file) 

P[)8bstrl:=C003  +  C001B+  LASTIN+  D04bD+  C001T1+  C001T2-f  C001W+  RPRIN+  ONEWAY-t 

FILLER; 
PD8bstr2:=NumToStnng(B011A)  +NumToString (B073) +NumToString (FMLTCNT) + 

NumToStnng(FMLYEXP) +NumToString (FMLYGRS) +NumToStnng ( FMLYMNM) + 
NumToSt  r l ng I FMLYSYSORD) +NumToSt  r l ng ( FMLYSYSRO )  + 
NumToSt ring! FMLYOPAST) +NumToSt ring! FMLYPLT) + 
NumToSt  ring ( FHLYRPRSRV) +NumToSt n  ng ( FMLYRTAT)  + 
NumToSt  r l ng ( FMLYROS I Z ) +NumToS t  ring ( FSOPPR 1 )  + 

NumToSt  r ing  (  FS0PPR2 )  +NumToSt  r l ng  (  FSOPPR3 )  +NumToSt  r  l  ng  (  FSOPPR4 )  ; 
PD8bst  r J : =NumToSt  r l ng ( FS0PPR5 ) +NumToSt  r l ng I FSOPPRb ) +NumToSt  r l ng ( FSOPPR7 )  + 

NumToSt  r l ng ( FSOPPRB ) +NumToSt  r l ng ( FS0PPR9 ) tNumToSt  r l ng ( FSOPPR 10)4 

NumToSt r l ng ( FSOPPR 1 1 ) +NumToSt ring (FSQPPR12) + 

NumToSt  r l ng ( FSOPPR 1 3 ) +NumToSt  r l ng ( FSOPPR 14)  + 

NumToSt  r l ng ( FSOPPR 1 5 ) tNumToSt  r l ng ( FSOPPR lb)* 

NumToSt  r l ng ( FSOPPR 1 7 ) +NumToSt  r l ng ( FSOPPR 18)  + 

NumToSt  r l ng ( FSOPPR 1 9 ) +NumToSt  r l ng ( FSOPPR20 )  + 

NumToSt l i ng ( FS0PPR2 1 ) ; 
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PD8bst  14  :  =NumToSt  nngl  FSQPPR22 )  +NumToSt  r  1  ng  I FSQPPR2 J  )  + 
NumToString ( FSQPPR24 ) +NumToSt r 1 ng IFSQPPR25I+ 
NumToString ( FSQPPR2b) +NumToString I FSQPPR27 ) + 
NumToSti  ing(FSQPPR28)  +NumToString (FSQPPR29) + 
NumToSt 1 1 ng ( FSQPPR3  0 ) +NumToSt  r l ng ( FSQPPR J  1 )  + 
NumToSt  n ng ( FSQPPR J  2 ) +NumToS 1 r  l  ng  ( FWO)  + 
NumToSti ing(B02JD) +NumToSt ring (HRZNLNGTH) + 
NumToSti mg(MEANNONZR) +NumToString (B061B1 +NumToSt ring (B019A) ; 

PD8bst  r5  :  =NumToSt  i  l  ng  ( BO  1 9B)  +NumTo3t  n  ng  ( BO  1  <)C )  +NumToSt  r  i  ng  ( B02 1 )  + 
NumToSt  ri  ng ( BO  1 9 ) +NumToSt  r l ng ( B02 1 A ) +NumToSt  r l ng I OPAST I  + 
NumToSt  r l ng ( PLTPPR ) +NumToSt r  i  ng ( BO  1 2  F ) +NumToSt  r  i  ng ( PPV )  + 
NumToString ( PPVO) +NumToSt ring (BRLDCU) +NumToSti ing ( F0  09) + 
NumToSt l l ng ( BO  1 2  E) +NumToSt  ring  I RSV) +NumToSt  r i ng I SOPPR 1 1  + 
NumToSt  r l ng I S0PPR2 ) +NumToSt  r l ng ( SQPPR3 ) ; 

PP8bstib:=NumToSti  l  ng  (S0PPR4)  +NumToSti  ing  IS0PPR5)  +NumToSti  l  ng  ( SOPPR b)  + 
NumToSt  r l ng ( SOPPR 7 ) +NumToSt r l ng ( SOPPR  8 ) +NumToSt  r l ng ( SOPPR q )  + 
NumToSt  r l ng I SOPPR 1 0 ) +NumToSt l l ng ( SOPPR 1 1 ) +NumToSt  ring  1 SOPPR 12 )  + 
NumToSt  r l ng ( SQPPR 1 3 ) +NumToSt  r l ng ( SOPPR 1 4 ) +NumToSt  r i ng I SOPPR 15)* 
NumToSt  r l ng ( SOPPR 1 b ) +NumToSt  r l ng ( SQPPR 1 7 ) +NumToSt  r  l  ng  I  SQPPR  1  8 )  ■<• 
NumToSt 1 1 ng ( SQPPR 1 9 ) +NumToSt  r l ng ( SQPPR2  0 ) ; 

PD8bstr7 : =NumToString (SQPPR21 ) +NumToString (SQPPR22) + 

NumToSt  r l ng ( SQPPR23 ) +NumToSt  r i ng ( SQPPR24 ) +NumToSt  r l ng ( SQPPR25 )  + 
NumToSt r  i  ng ( SQPPR2  b ) +NumToSt  r  i  ng ( SQPPR27 ) +NumToSt  r l ng ( SQPPR2  8 )  + 
NumToString (SQPPR29) +NumToString (SQPPR3  0) +NumToSt ring (SQPPR3 1 ) + 
NumToSt  r l ng ( S0PPR3  2 ) +NumToSt  r l ng I SVSBO) +NumToSt  r l ng I SYSRCR)  + 
NumToSt ring(A023B)+NumToStringlTRPR) +NumToSti ing (TSDRS) ; 

PD8bstr8:=NumToStringlB055)+NumToStringlF007)+ 

NumToSt  r i  ng ( ZOBS ) +NumToSt  r l ng ( EXPDEFRS ) +NumToSt  r l ng ( EXPDEFRSR )  + 

NumToSt  r  l  ng  (  EXPEJEFSDR)  +NumToSt  r  l  ng  [  FEXPDEFRS )  + 

NumToString ( FEXPDEFSUR) +NumToSt ring ( PROJADDBO) + 

NumToSt  r l ng ( PROJADDVRBL ) +NumToSt  r l ng ( PROJSMA VRBL)  + 

NumToSt  r l ng ( PROJSSADDBO ) +NumToSt  r  i  ng ( PROJSSADD )  + 

NumToSt  r l ng ( PROJSSSMA ) +NumToSt  r l ng ( RQSHRTRND )  + 

NumToSt  r l ng ( RQSHRTYR ) +NumToSt  r i ng ( VLBUYS ) ; 

PD8bst  i'9  :  =NumToSt  r  l  ng  ( VRBLHRSR )  +NumToSt  ri  ng  ( VRBLHRSQ)  + 

NumToString (UNITSHRTP) +NumToSt ring (UNITSSHRTR) ; 

assign  (out f i le, "pd8bin . f i 1 ' ) ; 

rewrite  (out  file); 

wi itein lout  file, PD8bstrl ,  PD86str2,  PD8bstr3,  PD8bstr4,  PD8bstr5,  PDSbstrb, 
PD8bstl7,  PD8bstr8,  PD8bstr9); 
close  (out f i le)  ; 
end; 


End.       {unit   pdunit} 
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unit    PQueue ; 


const  MAXPQUEUEGIZE=300; 

type  dataRecord  =  record 

Qty : integer; 
Week : integer; 
end; 
HeapAriayType=array  [ 1 . . MAXPQUEUESIZE]  of  datarecord; 
Pi  ion  tyQueueType  =  1 ecord 
heapSize: integer; 
heapAi i ay : HeapArrayType 
end; 

{must  be  called  before  the  prrority  queue  is  first  used! 

{also  resets  the  priority  queue  so  it  is  empty) 

procedure  Initial lzePriori tyQueue  (var  pQueue: Prion tyOueueType) ; 

(erioi  if  called  when  it  already  has  MAXPQUEUESIZE  elements) 

procedure  Insert Priori tyQueue  ( var  pQueue : Priori tyOueueType;  dat a : dat arecord) ; 

(returns  the  element  with  the  largest  value) 

{error  if  no  elements  in  the  priority  queue) 

funct ion  Cui rWeek  (pQueue: Priori tyQueueType) : integer; 

f unct ion  Cur lQty  (pQueue: Priori tyQueueType) : integer; 

{removes  and  returns  the  element  with  the  largest  value) 
{error  1 f  no  elements  in  the  priority  queue) 
function  ExtractQty  (var  pQueue: Priori tyQueueType) : integer; 
funct ion  Extract Week  I var  pQueue: Prior  1 tyQueueType)  : integer; 

funct ion  Empty Pr 1  or  1 tyQueue  (pQueue: Prior  1 tyQueueType)  : boolean; 

funct ion  SizePr ion  tyQueue  (pQueue: Priori tyQueueType) : integer; 

implement  at  ion 

{error  if  the  binary  trees  that  are  children  of  the  index  do  not  satisfy  the 

heap  property) 

procedure  Heapify  (var  pQueue: Priori tyQueueType;  i: integer); 

var  lef t , right , smal lest : integer ; 
tempVar :dataRecord; 

beg  in 

with  pQueue  do  begin 
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left  :=2M; 
right :=(2*i)+l; 

[ii-i  1  1  est  :=i  ; 
if  [left  .=  heapSize)  then  begin 

if  (heapArray  [left). Week  •  heapArray ( l ] .Week)  then  begin 

smallest :=left 
end 
end; 
if  ( right- =heapSize)  then  begin 

if  (heapArray [right ] .Week  -  heapArray [smal lest ] .Week)  then  begin 

smal lest : =right 
end 
end; 

if  smallest  •  -i  then  begin 
tempVar : =heapArray [ i ) ; 
heapArray 1 i ] : =heapAri ay (smal lest ] ; 
heapArray ( smal lest ] : =tempVar; 
Heapi fy  (pQueue, smal lest ) 
end 
end  (with) 
end;  {procedure} 


{ removes  and  returns  the  element  wi th  the  largest  va lue} 

{error  l f  no  elements  in  the  priority  queue} 

f unct  ion  HeapExt ractWeek  [var  pQueue: Pr ion tyQueueType)  : integer; 

begi  n 

with  pQueue  do  begin 

HeapExt  ractWeek : = heapArray [ 1 } .Week; 
heapArray [ 1 ] : = heapArray [ heaps ize) ; 
heapS l ze: =heapSi ze- 1 ; 
Heapi fy  (pQueue, 1 ) 
end  {with} 
end;  {procedure} 

{removes  and  returns  the  element  with  the  largest  value) 

{error  i f  no  elements  in  the  priority  queue) 

f unct ion  HeapExt r act Qty  (var  pQueue: Prior l tyQueueType) : integer; 

begin 

with  pQueue  do  begin 

HeapExt r act Qty : =heapArray [ 1 ] .Qty; 
heapArray ( 1 J : =heapArray [heapSize} ; 
heapSi  ze: =heapSize- 1  ; 
Heapi  fy  (pQueue, 1 ) 
end  (with) 
end;  {procedure} 


{erioi  if  called  when  it  already  has  MAXPQUEUESIZE  elements} 
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procedui  e  Heaplnsert  (vai  pOueue:  Pi  ion  tyQueueType;  data:datarecord) ; 

vai  index,  parent : integer; 
done: boo  lean; 

begin 

with  pQueue  do  begin 
done: =false; 
heapSi  2e  :  =heapSi  ze+  1  ; 
1  ndex  :  =heapSi  ze; 
parent := 1 ndex  div  2; 
if  paient=0  then  begin 

done:=TRUE 
end  else  if  (heapArray [parent ] .Week  -=  data. Week)  then  begin 

done:=TRUE 
end; 

while  (index  -  1)  and  (not  done)  do  begin 
heapArray I  index]  : =heapAri ay [parent ) ; 
index :=parent ; 
parent : =index  div  2; 
if  parent=0  then  begin 

done:=TRUE 
end  else  if  ( heapAn ay [parent ] .Week  <=  data. Week)  then  begin 

done:=TRUE 
end 
end;  (while) 
heapArray [ index] :=data 
end  {with} 
end;  {procedure } 


procedure  1m t lal l zePr ior i  ty Queue  ( var  pQueue: Prior  it yQueueType) • 

vai  l ndex : l ntegei ; 

begin 

pQueue .heapSize:=0 
end;    {procedure) 

procedure  Insert  Prior i tyQueue  (var  pQueue: Prior it yQueueType;  data:dataRecord) 

begin 

Heap Insert  (pQueue ,  data) 
end;   {procedure ) 

funct ion  CurrWeek  (pQueue: Prior ltyQueueType) : integer; 

begin 

CurrWeek: =pQueue. heapArray { 1 ) .Week; 
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end;   { f unct ion} 

funct ion  CurrQty  (pQueue: Pr ion tyQueueType} : integer; 

begin 

CuriQty  :=pQueue.heapArray  [  1  ]  .  Qty; 
end;   { funct  ion} 

funct ion  ExtractQty  (var  pQueue:  Priori tyQueueType) : integer; 

beg  in 

Ext  ractQty : =HeapExt  ractQty  {pQueue) 
end;    (function) 

funct ion  Ext ract Week  (var  pQueue: Priori tyQueueType) : integer; 

begin 

Ext ract Week: =HeapExt ract Week  (pQueue) 
end;    { funct ion} 

funct ion  Empty Pr ion tyQueue  (pQueue: Pi  1  or  1 tyQueueType)  : boolean; 

begin 

Empty Pri on tyQueue: = pQueue. heapSize=0 
end;     { funct ion) 

funct ion  SizePrior 1 tyQueue  (pQueue: Prior  1 tyQueueType) : integer; 

begin 

Si zePri or i tyQueue: =pQueue. heapSize 
end;    { funct ion} 


end.     {unit    PQueue} 
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